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Manual released. Information complete through SMM17 Edition 2. 0. 


(9-20-67) 




B 


Technical change on pa?e 10. 


(11-6-68) 




C 


Information complete through SMM17 Edition 2.3. This edition obsolete?? all prpvinns pHitinn^ 


(9-15-70) 
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Information complete through SMM17 Edition 3. 0. This edition obsoletes all previous editions. 


(4-12-73) 
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Information complete through SMM17 Edition 3.1. This edition obsoletes all previous editions. 


(5-1-74) 
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Information complete through SMM17 Edition 3. 1-1. This edition obsoletes all previous editions. 


(2-4-75) 
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NAM OP1008 10154 COPYRIGHT CONTROL DATA CORP 1974 
I*********************************************************************** 

* - . ..* 

********** REVISION RECORD ♦ * ***** * ********** 

» » 

•MODAYR VERSION WHAT OONE , WHY , AND WHO 010 IT * 



• 032074 V 3.1 

.* 



SYSTEH RELEASED + 

ADDED OPERATORS MESSAGE DURING AUTOLOAD SECTION » 

♦ » 

♦ CHANGED SECTION 6 - SURFACE TEST - TO CHECK DATE FROM * 

♦ START OF BUFFER TO END OF BUFFER EJW ♦ 
*********************************************** ******************** # **** 



1738/853/85*t DISK PACK TEST 



THIS TEST HAS BEEN MODIFIED TO RUN ON THE FOLLOWING CPUS - 

1704 - 1774 - 178W8 

VER 3.0.3 1. MAOE MAX WAIT TIME IN SECTION 11 A SUBROUTINE 
WITH ENTRYsSCllE. ADDED WAIT CALL TO THE 
READ/WRITE SUBROUTINES TO ELIMINATE ERROR 42 
CAUSED BY THESE ROUTINES RETURNING CONTROL TO 
THE TEST SECTION WHILE STILL BUSY. 
2. DELETED EXT REJECT COUNTER FROM INPUT 
ROUTINE BECAUSE THE HARDWARE SHOULD 
NEVER REJECT STATUS. 



00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018. 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

08027 

00028 

00029 

00030 

00031 

00032 



0034 
0035 
0036 
0037 
.0038 
0039 



************************************************************************ 00034 

* * 00035 

* MINIMUM MEMORY REQUIREMENT IS ^K •* 00036 
********************************************************** ******* 9 * vvvv , 00037 

■• » 00038 

************************************************************************ Q0039 
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0041 
0042 



1738 DIRECTOR FUNCTIONS 



00041 
00042 



0044 
0045 
0046 
0047 
0048 
0049 
0050 



Al 
A2 
A3 
A4 
A7 
A8 
A3 



CLEAR INTERRUPTS 

NEXT READY AND NOT BUSY INTERRUPT REQUSET 

END OF OPERATION INTERRUPT REQUEST 

ALARM INTERRUPT REQUEST 

RELEASE (ALLOW CONTROL 8Y UNPROTECTED PROGRAM) 

UNIT SELECT 

UNIT SELECT CODE 



00044 
00045 
00046 
00047 
00048 
00049 
00050 



0052 
0053 



0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 





1738 STATUS 


AO = 1 


L READY 


Al = i 


L BUSY 


A2 = 


L INTERRUPT 


A3 = i 


L ON CYLINOER 


A4 = I 


L END OF OPERATION 


A5 = J 


L ALARM 


A6 = 1 


L NO COMPARE 


A7 = 1 


L PROTFCTED 


A8 = i 


L CHECKWORD ERROR 


A9 = J 


L LOST DATA 


A10= '1 


L SEEK ERROR 


All= J 


L ADDRESS ERROR 


A12= 1 


L DEFECTIVE TRACK 


A13-- 1 


L STORAGE PARITY ERROR 


A14= . 


L PROTECT FAULT 



00052 
00053 



00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
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0071 


0001 


0072 


0002 


0073 


0003 


0074 


0004 


007S 


0005 


0076 


0006 


0077 


0007 


0078 


0008 


0079 


0009 


0080 


O00A 


0081 


OOOB 


0082 


OOOC 


0083 


OOOO 


0084 


0042 


0085 


0043 


0086 


0044 


0087 


0045 


0088 


0047 


0089 


0048 


0090 


0049 


0091 


0056 


0092 


006B 


0093 


006B 


0094 


00 6C 


0095 


0060 


0096 


006E 


0097 


Q06F 


0098 


0070 


0099 


0071 


0100 


0072 


0101 


0073 


0102 


0074 


0103 


0075 


0104 


0076 


0105 


0077 


0106 


0078 


0107 


0079 


0108 


007 A 


0109 


■-■■ 0078 


0110 


007C 


0111 


0070 


0112 ... 


. 007E 


0113 


007F 


0114 


0080 


4115 


0081 


0116 


0082 


0117 


0083 


0118 


0084 


0119 


0085 


0120 


00 86 


0121 


0087 


0122 


0088 


0123 


0089 



PAGE 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
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CONTROL(l) 

STOPX(CONTROL+l> 

EXITCSTOPXU) 

REQINT(EXIT*1> 

FCLRINTCREQINT+1) 

JUMP<REQINT+2) 

GENRANCJUMP+1) 

TYPEOUTCGENRAN+11 

TTYBZYCTYPEOUT+i) 

HEXASCCTYPEOUT+2) 

OVRLAY(HEXASCU) 

RELPOSCOVRLAYM) 

MAINHRELPOS+1) 

SETMASKCMAINL+53) 

STJP(SETMASK*il 

LASTVALU(STJP+1) 

LASTAD1STJP+2) 

LDLCOREILASTAD+2) 

LDLiCOR(LDLCORE+l» 

INFORM UDLlCOR+i) 

SMMCNTUNF0RN+13I 

BIT00(SMMCNT+21) 

BIT0CBIT00) 

BZTKBXTO+.l) 

BIT2IBITH-1) 

BIT3<BIT2*1> 

BIT4CBIT3*1) 

BIT5CBIT4+1) 

BIT6<BIT5+1) 

BIT7(BIT6*1) 

9IT8(BTT7+1J 

BIT9CBIT8+1I 

BIT10I8IT9+11 

BIT11CBIT10+1) 

BIT12«BIT11+1) 

BIT13(BIT12*11 

BIT14fBITi3*ll 

BIT151BIT14+1I 

H0000IBIT15+1) 

HFFFF(H0000+1) 

HOOOFCHFFFF+1) 

H00F0fH000F+i» 

H0F00CH00F0+1) 

HFOOOCHOFOO+ll 

HOOFFlHFOOQ+1) 

HFF00(H00FF*1) 

HFFFO(HFFQQ«-i> 

H0FFF«HFFF0+1> 

HFF0F(H0FFF4-lt 

HFOFFIHFFOF+l) 

H7FFFCHF0FF+1) 

H7F00CH7FFF4-1) 

H0780(H7FOO+1) 



RETURN SMH CONTROL ADDRESS. 

ALL STOPS AND ERROR TYPEOUTS 

END OF TEST-PASS EXIT 

REQUEST INTERRUPT ADDRESS 

FAKE CLEAR INTERRUPT ROUTINE 

CHECK SKIPSWITCH FOR PARAM ENTRY 

RANDOM NUMBER GENERATOR 

MESSAGE TYPEOUT ROUTINE 

ROUTINE TO WAIT TTY NOT BUSY. 

HEX TO ASCII CONVERSION 

OVERLAY CALL ROUTINE. 

A/Q RELATIVE POSITION TEST. 

MANUAL INTERRUPT ROUTINE. . 

M REGISTER RESET VALUE, v^ 

STOP/JUMP PARAMETER WORD. 

MONITOR AREA LHA+1 

AVAILABLE LOAD CORE FWA. 

BANKO LAST ADDR „ 

8ANK1 LAST ADDR 

BKO SIZE, MASK SIZE, BUSY SWITCH 

SMM PARAMETER WORD. 

XXXXXXXX CONSTANT TABLE XXXXXXXX 



00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
0O097 
00098 
00099 
00 100 
00101 
00102 
00103 
00104 
00105 
00106 
O01O7 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
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0124 


008A 


EQU 


H007FCH0780+1) 


0125 


0086 


EQU 


H2020!H007F»1) 


0126 


0091 


EQU 


TSACTVCH2020+6I 


0127 


0092 


EQU 


TSFREQ(TSACTV+1) 


0128 


006B 


EQU 


CONSTCBIT00) 


0129 


0056 


EQU 


SMMPAR<SHMCNT> 


0130 


0043 


EQU 


SJPAR(STJP) 


0131 


0007 


EQU 


RANDOH(GENRAN) 


0132 


OOOA 


EQU 


CONVERT (HEXASCI 


0133 


0008 


EQU 


MESSAG<TYPEOUT) 


0134 


0004 


EQU 


REQNDCREQINT) 


0135 


0005 


EQU 


CLRND(FCLRINT) 


0136 


OOOA 


EQU 


CONVMIHEXASO 


0137 


0004 


EQU 


. INF0BK<$04> 



TABLE INDEX TO TEST IN CONTROL. 
TEST, FREQUENCY TABLE 



00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
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0139 



♦ ERROR CODES(HEXIOECIMAL) 



00139 



0141 
01*2 
0143 
0144 
0145 
0146 
0147 
0148 
0149' 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
41168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
.0177 
0178 
0179 

aiao 

0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 



» Qi-INTERNAL REJECT OF INPUT TO A. 

* A=BAOD 

* QsCONTENTS OF Q UPON INPUT TO A 

* A= CONTENTS OF A UPON LAST OUTPUT FROM A. 

* Q=CONTENTS OF Q UPON LAST OUTPUT FROM A. 

* 02-INTERNAL REJECT ON OUTPUT FROM A. 
» AsOIRECTOR STATUS 

» Q=ADORESS REGISTER STATUS 

* A=CONTENTS OF A. UPON OUTPUT FROM A 

* Q=CONTENTS OF Q UPON OUTPUT FROM A. 

* 03-INTERRUPT STATUS BIT NOT SET WHEN INTERRUPT OCCURRED. 
» A=SELECTED INTERRUPTS 

* 1-REAOY, NOT BUSY 

* 2-END OF OPERATION 

* 4-ALARM 

* QsSTATUS UPON INTERRUPT - 

» A=CONTENTS OF A UPON LAST OUTPUT FROM A 

* Q=CONTENTS OF Q UPON LAST OUTPUT FROM A 

» 04-NON-SELECTED INTERRUPT OCCURREO (OR INTERRUPT OCCURRED 

* TOO SOON! 

* DISPLAY SAME AS FOR ERROR CODE 03 

* 05-INTERRUPT STATUS BITS NOT CLEARED BY CLEAR INTERRUPT 

* FUNCTION 

* A=STATUS UPON INTERRUPT 

* QsSTATUS AFTER ATTEMPTING TO CLEAR INTERRUPTS. 

» A=CONTENTS OF A UPON LAST OUTPUT FROM A (OTHER THAN 

* CLEAR INTERRUPT FUNCTION) 

* Q=CONTENTS OF Q UPON LAST OUTPUT FROM A (OTHER THAN 

* CLEAR INTERRUPT FUNCTIONI 

* OS-READY STATUS NOT PRESENT 
». A=OIRECTOR STATUS 

* Q=ADDRESS REGISTER STATUS 

* A=CONTENTS OF A UPON LAST OUTPUT FROM A (OTHER THAN 
»■ CLEAR INTERRUPT FUNCTION) 

* Q=CONTENTS OP Q. UPON LAST OUT°UT FROM A (OTHER THAN 

* CLEAR INTERRUPT FUNCTION) 

* 07-ON CYLINDER STATUS NOT PRESENT 

* A=OIRECTOR STATUS 

* Q=ADDRESS REGISTER STATUS 

» 08-BUSY HOI PRESENT AFTER AN OUTPUT FROM A. DISPLAY 

* SAME AS FOR ERROR CODE 06. 
» 09-STORAGE PARITY ERROR 

» DISPLAY SAME AS FOR ERROR CODE 06. 

» OA-DEFECTIVE TRACK 

•DISPLAY SAME AS FOR ERROR CODE 06. 

* C8-A00RESS ERROR 

* OISPLAY SAME AS FOR ERROR CODE 06. 

* OC-SEEK ERROR 



00141 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
00182 
00183 
00184 
00185 
00186 
00187 
00188 
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0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 



DISPLAY SAME AS FOR ERROR COD£ 06. 

00-LOST DATA 

DISPLAY SAME AS FOR ERROR CODE 06. 

QE-CHECKWORD ERROR 

DISPLAY SAME AS FOR ERROR CODE 06. 

OF-PROTECT FAULT 

OISPLAY SAME AS FOR ERROR CODE 06. 

10-ALARM CONDITION PRESENT BUT ALARM STATUS BIT NOT SET 

OISPLAY SAME AS FOR ERROR CODE 06. 

li-AOORESS REGISTER STATUS DOES NOT EQUAL LOADED ADDRESS 

AFTER LOADING ADDRESS AND WAITING FOR NOT 8USY 

A=8A0D 

Q=DIRECTOR STATUS 

A = ADOR.ESS REGISTER STATUS 

Q=LOADEO AOORESS 

12-NOT USED 

13-NOT USED 

14-WOPD WRITTEN DOES NOT FQUAL WORO READ. (THIS MAY OCCUR 

IN SECTIONS 3,4, 5 AND 8 OF THE TEST) SET 3IT 11 IN 

THE STOP/JUMP PARAMETER TO IGNORE CHECKING FOR MORE 

ERRORS IN THIS SECTOR. 

A=ADDRESS REGISTER STATUS 

Q=NUM8ER OF WORD IN ERROR 

A=WORO WRITTEN 

Q=MORD READ 

15-NO COMPARE STATUS PRESENT 

A=OIRECTOR STATUS 

0=AODRESS REGISTER STATUS AFTER LOAD ADDRESS 

16-ALARM INTERRUPT 010 NOT OCCUR WHEN ATTEMTING TO FORCE 

ADDRESS ERROR BY LOADING ILLEGAL ADDRESS 

A=LOAOED ADDRESS 

Q=DIRECTOR STATUS 

A=INTERRUPT LINE 

Q=SELECTEO INTERRUPTS (SEE ERROR COOE 03) 

17-AN ADDRESS ERROR WAS FORCED BUT THE ADDRESS ERROR STATUS 

BIT WAS NOT SET 

A=LOAOED ADDRESS 

Q=OIRECTOR STATUS 

18-NO ALARM INTERRUPT OGCURREO WHEN ATTEMPTING TO FORCE 

ADDRESS ERROR BY INITIATING CHECKWORO CHECK WITH ILLEGAL 

ADDRESS. 

OISPLAY SAME AS FOR ERROR COOE 16. 

19-ADORESS ERROR STATUS NOT PRESENT WHEN WRITING OFF THE ENO 

OF DISK PACK 

DISPLAY -SAME AS FOR ERROR CODE 17 

1A-NOT USED 

IB-UNEXPECTED DATA WAS READ DURING SURFACE TEST. SET BIT 

11 IN THE STOP/JUMP PARAMETER TO IGNORE REST OF ERRORS 

IN THIS SECTOR OR TRACK 

A=SECTOR IN ERROR 

Q=NUMBER-OF WORK IN ERROR 

A=DATA EXPECTED 

Q=OATA READ 



00189 
00190 
00191 
00192 
00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00218 
00219 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00 240 
00 241 
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02*2 
02*3 
02** 
02*5 
0246 
0247 
0248 
02*9 
0250 
0251 
0252 
0253 
025* 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
026* 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
■ 0280 
0281 
0282 
0283 
028* 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
029* 



1C-MAXIMUM POSITIONING TIME OF 165 MILLISECONDS WAS 

EXCEEDED. 

A=TIME REQUIRED (MILLISECONDS, HEXADECIMAL) 

Q^LOAOLO ADDRESS 

ID-AUTOLOAD FAILED TO LOAD CORRECT DATA 

SET BIT SET BIT 11 IN THE STOP/JUMP PARAMETER TO IGNORE THE 

REST OF THE WORDS IN ERROR. 

A=3ADD 

Q=NUMQER OF WORD IN ERROR 

A=WORD WRITTEN 

Q=WORti IN CORE AFTER AUTOLOAD 

IE-END OF OPERATION STATUS NOT PRESENT 

DISPLAY SAME AS FOR ERROR C00E16. 

1F-STATUS OTHER THAN PEADY, ON CYLINDER IS PRESENT 

(IGNORING PROTECT STATUS) DURING STATIC STATUS CHTCK. 

DISPLAY SAME AS FOR ERROR CODE 07. 

20-ALARM INTERRUPT DID NOT OCCUR WHEN WRITING OFF THE ENO 

OF DISK PACK 

DISPLAY SAME AS FOR ERROR CODE 16. 

21-NO INTERRUPT OCCURRED WHEN END OF OPERATION OR READY, 

NOT BUSY INTERRUPT WAS SELECTED. 

A=SELECTED INTERRUPTS (SEE ERROR CODE 03) 

Q=OIRECTOR STATUS 

A=CONTENTS OF A UPON LAST OUTPUT FROM A 

Q=CONTENTS OF Q UPON LAST OUTPUT FROM A 

22-NOT USED 

23-NOT USED 

2*»-ALARM STATUS BIT SFT, NO ALARM CONDITIONS. 

DISPLAY SAME AS FOR ERROR CODE 06. 

25-NO COMPARE STATUS NOT SET AFTER ATTEMPTING TO FORCE 

NO COMPARE STATUS 

A=OIRECTOR STATUS 

Q=ADDPFSS REGISTER STATUS 

26-FIRST UNIT WENT TO INCORRECT ADDRESS DURING OVERLAP SEEK. 

A=8ADD 

Q=aiRECTOR STATUS 

A=LOADED ADDRESS 

Q=ADDRESS REGISTER STATUS 

27-SEC0N0 UNIT WENT TO INCORRECT AOORESS DURING OVERLAP 

SEEK. 

DISPLAY SAME AS FOR ERROR CODE 26 

28 

THROUGH 

2F-N0T USED 

3C-ADDRESS UPON COMPLETION OF A READ, WRITE, COMPARE OR 

CHECKWORD CHECK OPERATION IS NOT EQUAL TO THE EXPECTED 

AODRESS 

A=CONT£NTS OF UPON LAST OUTPUT FROM A (OTHER THAN 

CLEAR INTERRUPT FUNCTION) 

Q=DIRECTOR STATUS 

A=ADDRESS REGISTER STATUS 

Q=EXPECTED ADDRESS 

31-RECOVERABLE ERROR OCCUP.REO DURING CHECKWORD CHECK (SECTION 



002*2 
002*3 
002** 
002*5 
002*6 
002*7 
002*8 
002*9 
00250 
00251 
00252 
00253 
0025* 
00255 
00256 
00257 
00258 
00259 
00260 
00261 
00262 
00263 
0026* 
00265 
00266 
00267 
00268 
00269 
00270 
00271 
00272 
00273 
0027* 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
00282 
00283 
•028* 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
0029* 
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0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 



• 13) 



A=AOORESS OF TRACK CAUSING ERROR 

Q=OIR£CTOR STATUS WHEN LAST ERROR OCCURRED 

32-N0N-REC0VERABLE ERROR OCCURRED DURING CHECKWORO CHECK 

(SECTION 13) 

DISPLAY SAME AS FOR ERROR CODE 31. 

33 

GHROUGH 

3F-N0T USED 

140-OPERATOR ERROR, INTERRUPT LINE OR EQUIPMENT AODRESS 

IN ERROR. TEST MUST BE RELOADED. 

A= SELECTED EQUIPMENT AODRESS. 

Q=SELECTED INTERRUPT LINE (IF ANY) 

41 - EXT REJECT ON INPUT TO A 
A=3ADD 

Q=EQUIP AODR 

A=CONTENTS OF A (LAST OUTPUT) 

Q=GONTENTS OF Q (LAST OUTPUT) 

42 - EXT REJECT ON OUTPUT FROM A 
A=STATUS 

0= EQUIP ADDR 

A=LAST FUNCT CONTENTS OF A 

Q=LAST FUNCT CONTENTS OF Q 



00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00 30* 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
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0320 


POOOO 


180C 


OP1008 


JMP* 


START 


0321 


POOOl 
P0002 
P0003 


<»<t50 
3130 
3038 




ALF 


3,npiooa 


0322 


POOOi* 


0080 P 


PARAOR 


ADC 


PID 


0323 


P0005 


OOOA P 


RETURN 


ADC 


BEGIN 


032<t 


P0006 


0<»01 


EQADOR 


NUM 


$<*01 


0325 






* 






0326 


P0007 


0000 




NUM 





0327 


P0008 


0008 


ALARM 


NUM 


8 


0328 


P0009 


0006 


ENOOPER 


NUM 


8 


0329 


POOOA 
POOOB 


5800 
097A 


9EGIN 


RTJ 


INIALIZE 



CONTROL RETURNED HERE 

XXXX a CONTROLLER, EQUIPMENT NUMB 

ALARM INTERRUPT LINE 

END OF OPERATION INTERRUPT LINE 

180? IS STORED HERE FROM INIT. 



00320 
00321 



00322 
00323 
0032 <t 
00325 
00326 
00327 
00328 
00329 
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DATE* 01/04/75 



0331 
0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 
0340 
0341 
0342 
0343 

0344 

0345 
0346 
0347 
0348 
0349 

0350 
0351 
0352 

0353 

0354 
0355 

0356 
0357 
0358 
0359 
0360 
0361 
362 
0363 
0364 
0365 

0366 
0367 

0368 



P00OC 
POOOD 
POOOE 
POOOF 
P0010 
POOH 
P0012 
P0013 
P0014 
P0015 
P0016 
P0017 
P0018 
P0019 
P001A 
P001Q 
P001C 
P0010 
P001E 
P001F 
P0020 
P0021 
P0022 
P0023 
P0024 
P0025 
P0026 
P0027 
P0028 
P0029 
P002A 
P002B 
P00 2C 
P002O 
P002E 
P002F 
P0030 
P0031 
P0032 
P0033 
P0034 
P0035 
P0036 
P0037 
P0038 
P0039 
P003A 
P803B 
P003C 
P003O 
P003E 
P003F 
P0040 



58 7A 
COOO 
0985 
6800 
0914 
COOO 
0924 
6800 
08AF 
COOO 
0924 
6800 
01FA 
C800 
0076 
E8EA 
5404 
00E5 
C870 
AOOO 
1FFF 
6800 
00A4 
CO 78 
A86A 
0F44 
8073 
6800 
OOBB 
E806 
0O06 
4800 
Q408 
48 00 
0669 
OCOO 
C800 
0095 
A26B 
0117 
OOOi 
4832 
0DF2 
0151 
1810 
E82E 
18F5 
C800 
008A 
B26B 
68 00 
0087 
CA1A 



START 



REPEAT 



P REP 



RTJ* 
LOA 


PARAM 
=XIBUFFER*96 


STA 


IBUFFER-1 


LOA 


sXOBUFFFR+96 


STA 


OBUFFER-1 


LDA 


-XIBUFFFR-1 


STA 


T3+1 


LDA 


ALM 


LDQ» 

RTJ- 

ADC 

LOA» 

AND 


EQADOR 

(REQINT) 

INTPP.OC 

UNTTSECT 

=NJ1FFF 


STA 


SECTOTS 


LOA- 

AND* 

ARS 

ADD- 

STA 


C0NSTfl3 

UNITSECT 

4 

C0NSTO8 

UNIT 


LDQ» 

INQ 

STQ 


NEXTSECT 

6 

SEC4Z 



CHECK PARAMETERS 



STQ 



NEXTSECT ENQ 
LOOK 



SEC6Z 



TAG2 



LOA 


SECTOTS 


ANH- 


CONST, Q 


SAN 


TAG2-*-l 


INQ 


1 


STQ» 


Q 


INO 


-13 


SQN 


1 


JNP» 


TAG 3 


LDQ» 


Q 


JMP* 


LOOK 


LOA 


SECTOTS 


EOR- 


CONST, Q 


STA 


3FCT0TS 


LOA* 


TESTfl,Q 



SECTIONS TO TEST 



CHECK FOR UNIT NUMBER 



ALL SECTIONS HAVE EEEN CHECKED 



CLEAR SECTION BIT 



00 331 

00332 

00333 

00334 

00335 

00336 

00337 

00338 

00339 
00340 
00341 
00342 
00343 

00344 

00345 
00346 
00347 
00348 
00349 

00350 
00351 
00352 

00353 

00354 
00355 

00356 
00357 
00358 
00359 
00360 
00 361 
00362 
00363 
00364 
00365 

00366 
00367 

00368 



60220800 



PAGE 10 






\ J 



O O O'O'O O O O O C33 ooooo'oooc 



UP1008 



PAGE 11 



OATEI 01/04^75 



0369 P0041 6818 






STA» 


TEST 


0370 P0042 0O01 






INQ 


1 


0371 PQ043 0FA8 






QLS 


8 


0372 PQQ44 4824 






STq» 


SECTION 


0373 P0045 OA0O 






ENA 





0374 P0046 60FF 






STA- 


I 


0375 P0047 1C12 






JMP* 


(TEST) 


0376 P0048 4820 




TAG3 


STQ* 


SECTION 


0377 PQ049 D80F 






RAO» 


PASSCT 


0378 PQ04A E80E 






LOQ» 


PASSCT 


0379 PQ04B 0A0C 






ENA 


IC 


0380 PQ04C 5800 






RTJ 


STOP 


. P004D 028C 










0381 P004E 0A<»0 






ENA 


t40 


0382 P004F 5406 






RTJ- 


CJUMP) 


0383 P0050 1804 






JMP» 


TAG4 


0384 P0051 C800 






LOA 


BIAS 


P0052 0206 










0385 P0053 5403 






RTJ- 


(EXIT) 


0386 P0054 C075 




TAG4 


LDA- 


CONST+10 


0387 P0055 5406 






RTJ- 


CJUMP) 


0388 P0056 18B5 






JMP* 


START 


0389 




* 






0390 P0057 18C1 






JMP» 


REPEAT 


0391 




* 






0392 P0058 0000 




PASSCT 


NUM 





0393 PQD59 0000 




TEST 


NUM 





0394 P005A 0462 


P 




AOC 


SECl f SEC2,S 


PQQ58 0490 


P 








P005C Q4A3 


P 








P005O 04FA 


P 








P005E 0543 


P 








P005F 0677 


P 






■ 


P0060 0726 


P 








P0061 077F 


P 








P0062 Q785 


P 








P0063 078C 


P 








0395 P0064 07B1 


P 




AOC 


SEClltSEC12 


- PQ065 08 OC 


P 








0396 P0066 0871 


P 




ADC 


SEC13 


0397 P0067 0000 




Q 


.NUM 





0398 PO 068 00 DO 




SECJIQN 


NUM 






1 = 

GO DO TEST SECTION 



CHECK FOR ENO OF TEST STOP 



CHECK FOR REPEAT TEST 
REPEAT TEST 



CHECK FOR REPEAT PARAMETERS 
REPEAT TEST GOING THROUGH 
PARAMETER STOP. 
REPEAT TEST NOT THROUGH 
PARAMETER STOP. 



SECitSEC2,SEC3,SEC^,SEC5 t SEC6,SEC7,SEC8fSEC9,SEC10 



00369 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00378 
00379 
00380 

00361 
00382 
00383 
00384 

00385 
00386 
00387 
00388 
00389 
00390 
00391 
00392 
00393 
00394 



SECTION PRESENTLY BEING RUN 



00395 

00396 
00397 
00398 
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0400 P0069 0000 FINSECT NUM 





0401 P006A OA10 


ENA 


$10 


0402 P006B 5406 


RTJ- 


(JUMP) 


0403 P006C 1CFC 


JMP» 


(FINSECT) 


0404 P0060 C075 


LDA- 


CONST+10 


0405 P006E 5406 


RTJ- 


(JUMP> 


0406 P006F 5817 


RTJ* 


PARAM 


0407 P0070 D855 


RAO* 


SECTPASS 


0408 P0071 C854 


LOA* 


SECTPASS 


0409 P0072 0102 


SAZ 


2 


0410 P0073 D8F5 FIN3 RAO* 


FINSECT 


0411 P0074 1CF4 


JMP* 


(FINSECT) 


0412 P0075 OAOA 


ENA 


SA 


0413 P0076 OCOO 


EN Q 





0414 P0077 5800 


RTJ 


STOP 


P0078 0291 






0415 P0079 OA20 


ENA 


$20 


0416 P007A 5406 


RTJ- 


(JUMP) 


0417 P007B 1809 


JMP» 


FIN1 


0418 P007C C858 


LOA* 


REQF CHECK 


0419 P007D 0105 


SA Z 


FIN2-*-i 


0420 P007E C800 


LDA 


REQ5A 


P007F 0053 






0421 P008Q 5405 


RTJ- 


(CLRNO) 


0422 P0081 OAOO 


ENA 





0423 P0082 6852 


STA» 


REQF 


0424 P0063 18AB FIN2 JMP* 


NEXTSSCT 


0425 P0084 08E4 FIN1 RAO* 


• FINSECT 


0426 P0085 18E0 


JMP* 


FIN3 



DATE* 01/04/75 



FINISH SECTION SUB-ROUTINE 
REPEAT CONDITION MASK 

EXIT, REPEAT LAST CONDITION 



CHECK PARAMETERS 

A'O GO DO NEXT PASS OF SECTION 

BIT 8 IS SET TO CLEAR ERROR BIT 
STOP AT END OF SECTION 



INTERRUPT REQUEST FLAG 

NEXT SECTION IF CLEAR 



CLEAR INTERRUPT 

CLEAR INTERRUPT REQUEST FLAG 
GO TO NEXT SECTION 
GO REPEAT SECTION 



00400 
09401 
00402 
00403 
00404 
00405 
00406 
00407 
00408 
00409 
00410 
00411 
00412 
00413 
00414 

00415 
00416 
00417 
00418 
0041* 
00420 

00421 
00*22 
00423 
00424 
00425 
00426 



0428 P0086 


0000 


PARAM 


NUM 





0429 P0087 


C043 




LDA- 


STJP 


0430 P0088 


683F 




STA* - 


REQUEST 


0431 P0089 


C800 




LDfl 


BIAS 


P008A 


029E 








0432 P008B 


5402 




RTJ- 


(STOPX) 


0433 P008C 


1806 




JMP* 


PARSET 


0434 


00 80 P 




ORG 


* 


0435 P008D 


0821 


PIO 


NUM 


$821 


0436 P008E 


109F 


UNITSECT 


NUM 


$1Q9F 


0437 




* 






0438 




.* . . 






0439 




* 






0440 




* 







CHECK PARAMETERS 



STANDARD RUN = SECTIONS If 2, 3 
8, 13, AND 9 IF MORE THAN 4K OF 
AVAILABLE. 

UNITS AVAILA8LE ANO SECTIONS 

SELECTED. 



00428 
00429 
00430 
00431 

00432 
00433 
00434 
00435 
00436 
.00437 
00438 
00439 
00440 
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PAGE 


13 DA 


TEI Cl/04/75 






0441 


* 


■ - 




BIT 15=0 853 


00*41 




0M2 


* 




i 


BIT 15*1 854 


00442 




0443 


. .» . . 






BIT 13*1 UNIT 1 


00443 




0444 


* 






BIT 13= UNIT 


00444 




0445 


* 






BIT 12= SECT. 13 


00445 




0446 


. *.. ....... 






BIT lis SECT. 12 


00446 




0447 


.* 






BIT 10= SECT. 11 


00447 




0448 


• ♦ 






BIT 9= SECT. 10 


00448 




0449 --■ 


. ».. 






BIT 8= SECT. 9 


00449 




0450 


* 




\ 


BIT 7s SECT. 8 


00450 




0451 


» 






BIT 6= SECT. 7 


00451 




0452 


* 






BIT 5= SECT. 6 


00452 




0453 


* 






BIT 4s SECT. 5 


00453 




0454 


* 






BIT 3= SECT. 4 


00454 




0455 


*. 






BIT 2= SECT. 3 


00455 




0456 


* 






BIT 1= SECT. 2 


00456 




0457 


* 






BIT 0= SECT. 1 


00457 




0458 P0Q8F 2*63 


RANGE 


NUM 


$2863 


LOCATION sXXYY 


00458 




0459 


* 






XX= LOW ORDER CLYO. 


00459 




0460 


* 






YY ■* HIGH ORDER CYLINOER 


00460 




0461 — 


. .♦; 






MAX. NUM. OF CYLINERS 


00461 




0462 


* 






853 «64 HEX. 


00462 




0463 


* 






854 *CB HEX 


00463 




0464-RQQ90 0008 


ALM 


NUM 


8 




00464 




0465 P0091 0008 


ALM1 


NUM 


8 




00465 




0466 P0092 C835 


PARSET 


LOA* 


REQUEST 




00466 




.04*7 P0O93 A06B 




ANO- 


CONST 




00467 




0468 P0094 011B 




SAN 


. PARSIT-*-l 




00468 




0469 P0095 C8C2 




LOA* 


PASSCT 




00469 




0470 PQ096 0109 




SAZ 


PARSIT-*-! 





. 00470 _ 


... _. •..- . 


0471 P0097 C8F6 




LOA* 


UN IT SECT 




00471 




0472 P0098 A073 




AND- 


CONST+8 




00472 




8473 P0099 0116 




SAN 


"PARSIT--*-! 




00473 




0474 P009A C8F3 




LOA* 


UNITSECT 


• 


00474 




0475 P0093 E800 




LDQ 


BUFFLAG 




00475 




P009C 0825 








.... ..... 


... „.. . 




0476 P009D 0FA8 




QLS 


8 




00476 




0477 P009E 0874 




EAQ 


A 




00477 




0478 PD09F 68EE 




STA* 


UNITSECT 


... ' .-- ~ 


00478- 




0479 P00A0 C8EE 


PARSIT 


LOA* 


RANGE 




00479 




0480 P00A1 A081 




ANO- 


HOOFF 


OOFF 


00460 




.0481 P0Q.A2 6800 , 




. STA .... 


RHIGH 


. ... - 


00481 


■/- 


P00A3 0186 














0482 P00A4 C8EA 




LOA* 


RANGE 




00482 




0483 POO A5 A082 




AND- 


HFFOO 


FFOO 


00403- 




0484 P00A6 0FC8 




ALS 


8 




00484 




0485 P0OA7 6800 




STA 


RLOW 




00485 




P0OA8-.Q1A2~ 















0486 P00A9 C8E6 




LOA* 


ALH 




00406 




0487 POOAA 6800 




STA 


ENDOPER 




. 00487 




-._..„. -4JQ0AB FF5D 














0488 POOAC 7800 




SPA 


ALARM 




00488 




P00AO FF5A 
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PAGE 


14 


0489 


POOAE 


0101 




SAZ 


PARS-*-l 


0490 


POOAF 


1807 




JMP» 


PARSLY 


0491 


POOBO 
P0081 


C800 
FF54 


PARS 


LOA 


EQADDR 


0492 


P0082 


0103 




SAZ 


PARSLY-*-l 


0493 


P0083 


A0 6B 




AND- 


CONST 


0494 


P00B4 


0101 




SAZ 


PARSLY-*-l 


0495 


P0085 


1CO0 




JMP» 


(PARAH) 


0496 


P00B6 
P0OB7 


C800 
FF4E 


PARSLY 


LOA 


EQAODR 


0497 


P00B8 
P00B9 


E800 
FF4E 




LOQ 


ALARM 


0498 


POOBA 
P00B8 


6800 
0261 




STA 


0ATA1 


0499 


POOBC 
POOBD 


4800 
0260 




STQ 


DATA? 


0500 


POOBE 


0A10 




ENA 


S10 


0501 


P008F 


OG40 




ENQ 


S40 


0502 


POOCO 
POOCl 


5800 
0248 




RTJ 


STOP 


0503 


P00C2 


1801 




JMP» 


PARSLEY 


0504 


P00C3 


0000 


PARSLEY 


SLS 




0505 


P00C4 


18FE 




JMP* 


PARSLEY 



OATEI 01/04/75 



INTERRUPT LINE IN ERROR 

EQUIPMENT ADDRESS IN ERROR 
EQUIPMENT AOORESS INERROR 



INTERRUPT LINE OR EQUIPMENT 
AODRESS IN ERROR 



TEST MUST BE RELOADED 



00489 
00490 
00491 

00492 
00493 
00494 
00495 
00496 

00497 

00498 

00499 

00500 
00501 
00502 

00503 
00504 
00505 



0507 P0OC5 0000 

0508 P00C6 0000 



SECTPASS NUM 
SECTOTTS NUM 



NUMBER OF PASS LEFKNEGATIVEI 



00507 
00508 
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0511 


P00C7 


0000 


REQUEST 


NUM . 





0512 






* 






0513 






* 






0514 






* 






0515 


pooca 


481A 




STQ* 


REQ4 


0516 


P00C9 


C80B 




LDA* 


REQF 


0517 


POOCA 


0101 




SAZ 


1 


0518 


POOCB 


1CF8 




JMP* 


< REQUEST) 


0519 


POOCC 
POOCO 


ceoo 

FF3A 




LDA 


ALARM 


0520 


POOCE 
POOCF 


E8 00 
FF36. 




LOCI 


EQAODR 


0521 


POOOO 


0804 




RAO* 


REQF SE 


0522 


P00D1 


5404 




RTJ- 


(RF.QNO) 


0523 


P00D2 


00E5 P 


REQ5A 


AOC 


INTPROC 


052** 


P00O3 


1CF3 




JMP* 


(REQUEST) 


0525 


PQQD4 


0000 


REQF 


NUM 






OATEt 01/04/75 



REQUEST INTERRUPT 
QO = READY ANO NOT BUSY 
Ql = END OF OPERATION 
Q2 = ALARM 



INTERRUPT LINE 
EQUIPMENT ADDRESS 



00 511 
00512 
00513 
00 514 
00515 
00516 
00517 
00518 
00519 

00520 



SET INTERRUPT REQUEST FLAG 00521 

00522 
************ gjA<* ************** 00523 

00524 
INTERRUPT REQUEST FLAG 00525 



0527 


P00O5 


0000 


SELECT 


NUM 





0528 


P00O6 
P00D7 


E800 
0249 




LOQ 


EQUIPOIR 


0529 


P0008 


OAOO 




ENA 





0530 


P00O9 


6808 




STA* 


INTSTAT 


0531 


P00OA 


C808 




LOA* 


REQ4 


0532 


P00OB 


0FC2 




AL3 


2 


0533 


P00OC 


8807 




l£OR* 


UNIT 


0534 


POOOO 
POODE 


6800 
023F 




STA 


0ATA2 


0535 


POODF 
POOEO 


5800 
OODF 




RTJ 


OUTPUT 


0536 


PO0E1 


1CF3 




JMP* 


(SELECT) 


0537 


P00E2 


0000 


REQii 


NUM 





0538 


P00E3 


0000 


UNIT 


NUM 





0539 


P00E4 


0000 


INTSTAT 


NUM 






SET DIRECTOR FUNCTION BITS 
SET UNIT SELECT CODE 



OUTPUT FUNCTION 



00527 
00528 

00529 
00530 
00531 
00532 
00533 
00534 

00535 

00536 
00537 
00538 
00539 
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0541 P00E5 0000 


INTPROC 


NUN 





0542 P00E6 4800 




STQ 


EXTVALUE 


P00E7 0240 








0543 P00E8 OA0O 




ENA 





0544 P00E9 6844 




STA* 


ERRZA 


0545 POQEA 6844 




STA* 


ERRZ8 


0546 POOEB 6844 




STA* 


ERRZC 


0547 POOEC 6844 




STA* 


ERRZO 


0548 POOEO 6844 




STA* 


ERRZE 


0549 POOEE 6844 




STA* 


ERRZF 


0550 POOEF 6844 




STA* 


ERRZG 


0551 POOFO E8Q0 




LUQ 


EQUIPOIR 


P00F1 022F 








0552 P00F2 0202 


REQZZ 


INP 


REQZ-*-i 


0553 P00F3 1805 




JMP* 


REQZB 


0554 P00F4 1802 




JHP» 


REQZA 


0555 P00F5 18FC 


REQZ 


JMP* 


REQZZ 


0556 P00F6 0837 


REQZA 


RAO* 


ERRZA 


0557 P00F7 OAFF 




ENA 


-0 


0558 P00F8 68EB 


REQZ3 


STA* 


INTSTAT 


0559 P0OF9 6800 




STA 


DATA! 


POOFA 0222 








0560 POOFB 0A02 




ENA 


2 


0561 POOFC 0302 


REQZX 


OUT 


REQZC-*-i 


0562 POOFD 1804 




JMP* 


REQZE 


0563 POOFE 1802 




JMP* 


REQZU 


0564 POOFF 18FC 


REQZG 


JMP* 


REQZX 


0565 P0100 D82E 


REQZT 


RAO* 


ERRZB 


0566 P0101 C82C 


REQZE 


LDA* 


ERRZA 


0567 P0102 0101 




SAZ 


REQZF-*-l 


0568 P0103 1820 




JMP* 


REQ7 


0569 P0104 C800 


RFQZF 


LOA* 


REQA 


0570 P0105 0F41 




ARS 


l' 


0571 P0106 0FC4 




ALS 


4 


0572 P0107 A8DC 




AND* 


INTSTAT 


0573 P0108 011B 




SAN 


REQ6-*-l 


0574 P0109 C8D8 




LOA* 


REQ4 


0575 P010A A06B 




ANO- 


CONST 


0576 P0103 0112 




SAN 


REQ61-*-l 


0577 P010C D823 




RAO* 


ERRZC 


0578 P010D 1807 




JMP* 


REQ6 


0579 P010E C805 


REQ61 


LOA* 


INTSTAT 


0580 P010F BOOO 




EOR 


=N$0009 


P0110 0009 








0581 P0111 AOOO 




AND 


=N$000B 


P0112 OOOB 








0582 P0113 681C 




STA* 


ERRZC 


0583 P0114 C060 


REQ6 


LOA- 


CONST+2 


0584 P0115 A8CE 




ANO* 


INTSTAT 


0585 P0116 0111 




SAN 


REQZG-*-l 


0586 P0117 D819 




RAO* 


ERRZO 


0587 P0118 0202 


REQ7G 


INP 


REQZH-*-l 


0588 P0119 1805 




JMP* 


REOZJ 



OATEI 01/04/75 



INTERRUPT PROCESSING ROUTINE 
SAVE Q 



CLEAR ERROR FLAGS 



EQUIPMENT-DIRECTOR 

INPUT STATUS 
NO REJECT 

LOOP IF EXTERNAL REJECT 
SET FLAG IF INTERNAL REJECT 

STATUS AFTER INTERRUPT 



NO REJECT 

LOOP IF EXTERNAL REJECT 

SET FLAG IF INTERNAL REJECT 



EXIT IF STATUS INPUT REJECT 

DROP READY-NOT BUSY BTT 

SHIFT REQUEST TO STATUS POSITION 

JUMP IF SELECTEO INTERRUPT OCCUR 



CHECK FOR READY-NOT BUSY REQUEST 
NON-SELECTED INTERRUPT OCCURRED 



EXPECT ON CYLINOER AND READY 

BUSY SHOULO BE CLEAR 

NONZERO IF NOT READY OR BUSY 

CHECK FOR INTERRUPT BIT 

FLAG ERROR IF NOT SET 
INPUT STATUS 
NO REJECT 



00541 
00542 

00543 
00 54*1 
00545 
00546 
00547 
00548 
00549 
00550 
00551 

00 552 
00553 
00 554 
00555 
00556 
00557 
00558 
00559 

00560 
00561 
00562 
00563 
00564 
0(1565 
00566 
00567 
00568 
00569 
00570 
00571 
00972 
00573 
00 574 
00575 
00576 
00577 
00578 
00579 
00580 

00581 

00582 
00583 
00564 
00585 
00586 
00587 
00588 
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0589 


P011A 


1802 




JMP* 


REQZI 


0590 


P0118 


18FC 


REQZH 


JMP* 


REQZG 


0591 


P011C 


D815 


RFQZI 


RAO* 


ERRZE 


0592 


P011D 


OAOO 




ENA 





0593 


P011E 


6815 


REQZJ 


STA* 


ERRZG 


0594 


POllF 
P0120 


AOOO 
00 34 




AND 


=N$34 


0595 


P0121 


0101 




SAZ 


REQ7-*-l 


0596 


P0122 


0810 




RAO* 


ERRZF 


0597 


P0123 
P0124 


COOO 
012A F 


REQ7 


LOA 


=XREQ8 


0598 


P0125 
P0126 


6800 
FEOE 




STA 


RETURN 


0599 


P0127 
P0128 


E800 
01FF 




LDQ 


EXTVALUF 


0600 


PQ129 


1CBB 




JMP* 


(INTPROC) 


0601 


P012A 


E8B9 


REQ8 


LDQ* 


INTSTAT 


0602 


P012B 


D8A9 




RAO* 


SELECT 


0603 


P012C 


1CA8 




JHP* 


(SELECT) 


0604 


P012O 


0000 


ERRZA 


NUM 





0605 


P012E 


0000 


ERRZB 


NUM 





0606 


P012F 


0000 


ERRZC 


NUM 





0607 


P0130 


0000 


ERRZO 


NUM 





0608 


FQ131 


0000 


ERPZE 


NUM 





0609 


P0132 


0000 


ERRZF 


NUM 





0610 


P0133 


0000 


ERRZG 


NUM 





0611 






* 


THE ROUTINE IS EXITE 


0612 






* 


RECEIVED. 





DATEI Dl/0^/75 



LOOP IF EXTERNAL REJECT 
SET FLAG IF INT. REJECT 

SAVE STATUS 

MASK INTERRUPT BITS 



*************** BIAS *********** 



GO TO MONITOR TO EXIT 
INTERRUPT STATUS 



INTP. STAT 



EXITED TO RETURN ADDRESS IF NO INTERRUPT IS 



00589 
00590 
00591 
00592 
00593 
00 594 

00595 
00596 
00597 

00598 

00599 

00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00608 
00609 
00610 
00611 
00612 



0614 
0615 
0616 

0617 
0618 
0619 

0620 
0621 
0622 
0623 
0624 
0625 
0626 



P0134 0000 
P0135 5858 
P0136 6800 
P0137 01E6 
P0138 585C 
P0139 C853 
P013A 6800 
P013B 01E1 
P013C A06F 
P013D 0112 
P013E 0C1E 
P013F 5842 
P0140 C84C 
P0141 B068 
P014? AOOO 
P0143 7F01 



CONALARM 



NUM 

RTJ* 

STA 

RTJ* 
LDA* 
STA 

ANO- 

SAN 

ENQ 

RTJ* 

LOA* 

EOR- 

AND 



ADRINP 
0ATA2 

STD34 

STATUS 

OATA1 

CONST+4 

2 

$1E 

STP 

STATUS 

CONST 

=N$7F01 



CHECK ALARM CONDITIONS 

ADDRESS REGISTER STATUS 

LAST FUNCTION 

OIRECTOR STATUS 

END OF OPERATION STATUS 

END OF OPERATION NOT SET 



00614 
00615 
00616 

00617 
00618 
00619 

00620 
00621 
00622 
00623 
00624 
00625 
00626 
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DATEI 01/04/75 



0627 PQ144 


0117 




SAN 


0628 P0145 


0A20 




ENA 


0629 P0146 


A8<»6 




AND* 


0630 P0147 


0111 




SAN 


0631 P0148 


1CE8 




JMP* 


0632 P0149 


0C24 


C0NG1 


ENQ 


0633 P014A 


5837 




RTJ* 


0634 P0148 


1CE8 




JMP* 


0635 P014C 


AOOO 


CON02 


AND 


P0140 


1C00 






0636 P014E 


682B 




STA* 


0637 PQ14F 


0A20 




ENA 


0638 P015Q 


A8 3C 




AND* 


0639 P0151 


0112 




SAN 


0640 P0152 


0C10 




ENQ 


0641 




* 




0642 




* 




0643 P0153 


582E 




RTJ» 


0644 PQ154 


C838 


CONO 


LDA* 


0645 P0155 


6831 




STA* 


0646 PO 156 


5824 




RTJ* 


0647 P0157 


1803 




JHP* 


0648 P0158 


OCOF 




ENQ 


0649 P0159 


5828 




RTJ* 


0650 P015A 


5820 


C0N1 


RTJ* 


0651 P015B 


1803 




JHP* 


0652 P015C 


OC09 




ENQ 


0653 P0150 


582«» 




RTJ* 


0654 P015E 


581C 


C0N2 


RTJ* 


0655 P015F 


1803 




JMP* 


0656 P0160 


OCOA 




ENQ 


0657 P0161 


5820 




RTJ* 


0658 P0162 


5818 


COM3 


RTJ* 


0659 P0163 


1803 




JMP* 


0660 P016<» 


0C09 




ENQ 


0661 P0165 


58 1C 




RTJ* 


0662 P0165 


5814- 


CON<f 


RTJ* 


0663 P0167 


1803 




JMP* 


0664 P0168 


OCOC 




ENQ 


0665 P0169 


5818 




RTJ* 


0666 P016A 


5810 


C0N5 


RTJ* 


0667 P016B 


1803 




JMP* 


0668 P016C 


OCOO 




ENQ 


0669 P0160 


5814 




RTJ* 


0670 P016E 


580C 


C0N6 


RTJ* 


0671 P016F 


1803 




JMP* 


0672 P0170 


OCOE 




F.NQ 


0673 PQ171 


5810 




RTJ* 


0674 P0172 


C814 


C0N7 


LDA* 


0675 P0173 


0FC8 




ALS 


0676 P0174 


0121 




SAP 


0677 P0175 


1CBE 




JMP* 


0678 P0176 


0C06 


C0N8 


ENQ 



CON02-*-l 

$20 

STATUS 

CON0i-*-l 

(CONALARM) 

$24 ALARM 

STP 

(CONALARM) 

=N$1C0D 

ALFLAG 
$20 

STATUS 
CON0-*-i 

$10 



STP 

STATUS 

TEMP 

CONCHECK 

C0N1 

$F 

STP 

CONCHECK 

C0N2 

9 

STP 

CONCHECK 

C0N3 ' 

$A 

STP 

CONCHECK 

CON^f 

$0 

STP 

CONCHECK 

CONS 

$C 

STP 

CONCHECK 

C0N6 

$0 

STP 

CONCHECK 

C0N7 

$E 

STP 

TEMP 

8 

C0N8-*-l 

(CONALARM) 

6 



NO ALARM CONDITIONS 



ALARM BIT NOT SET, EXIT 
BIT SET, NO ALARM CONDITIONS 



ERROR NUMBER, AN ALARM CONDITION 
HAS PRESENT BUT THE ALARM BIT 
HAS NOT SET. 



PROTECT FAULT 



STORAGE PARITY ERROR 



DEFECTIVE TRACK 



ADDRESS ERROR 



SEEK ERROR 



LOST DATA 



CHECKHORD ERROR 



NOT READY 



00627 
00628 
00629 
00630 
00631 
00632 
00633 
00634 
00635 

00636 
00637 
00638 
00639 
006(»0 
00641 
00642 
00643 
00644 
00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 
00654 
00655 
00656 
00657 
00658 
00659 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 
00668 
00669 
00670 
00671 
00672 
00673 
00674 
00675 
00676 
00677 
00678 
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OATEI 01/04/75 



0679 P0177 580A 

0680 P0178 1CBB 

0681 PQ179 0000 



RTJ* 
JMP* 
ALFLAG NUM 



STP 

(CONALARM) 





00679 
00680 
00681 



0683 P017A 0000 

0684 P0178 C80B 

0685 P017C 0FC1 

0686 P017O 6809 

0687 P017E 0121 

0688 P017F D8FA 

0689 P0180 1CF9 



CONCHECK NUM 





LDA* 


TEMP 


ALS 


1 


STA* 


TEMP 


SAP 


1 


RAO* 


CONCHECK 


JMP* 


(CONCHECK) 



00683 
00684 
00685 
00686 
00687 
00688 
00689 



0691 P0181 


0000 


STP 


NUM 





0692 P0182 


0A20 




ENA 


$20 


- 0693 P0183 


5800 




RTJ 


STOP 


P0184 


0185 








0694 P0185 


1CFB 




JMP* 


ISTP) 


0695 PQ186 


OQOQ 


TEMP 


NUM 






00691 
00692 
00693 

00694 
00695 



--•■■*■ - - ■• ...... 








0697 P0187 0000 


INPUT 


NUM 





0698 


* 






0699 


* 






0700 


* 






.- -0701 P-0188 E800 




LOQ 


EQUIPDIR 


P0189 0197 








0702 P018A 5812 




RTJ* 


INP 



INPUT STATUS 

ERROR TYPE OUT HILL HAVE THE 
EQUIPMENT AODRESS IN DATA1 
AND THE STATUS IN DATA2 



00 697 
00698 
00699 
00700 
00701 

00702 
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OATEI 01/04/75 



0703 P0188 1CFB 

0704 P018C 0000 



STATUS 



JMP» 
NUM 



(INPUT) 




DIRECTOR OR ADDRESS STATUS 



00703 
00704 



0706 P018O 0000 


AORINP 


NUM 





0707 P018E E800 




LDQ 


EQUIPADR 


P018F 0192 








0708 P0190 580C 




RTJ* 


INP 


0709 P0191 1CFB 




JMP* 


(ADRINP) 


071C P0192 0000 


LP1 


NUM 





0711 P0193 0000 


EG1 


NUM 






00706 
00707 

00708 
00709 
00710 
00711 



0713 


P0194 


0000 


STD34 


NUM 





0714 


P0195 


C828 




LOA* 


FUNCA 


0715 


P0196 
P0197 


6800 
0187 




STA 


DATA3 


0716 


P0198 


E826 




LDQ* 


FUNCQ. 


0717 


P0199 
P019A 


4800 
0185 




STQ 


DATA4 


0718 


P019B 


1CF8 




JMP» 


(STD34) 


0719 


P019C 


0000 


INP 


NUM 





0720 


P019D 
P019E 


4800 

017F 




STQ 


0ATA2 


0721 


P019F 


0844 




CLR 


A 


0722 


P01A0 


68F1 




STA* 


LP1 


0723 






* 






0724 


P01A1 


0208 


12 


INP 


Il-*-l 


0725 


P01A2 


OFAF 




QLS 


15 


0726 


P01A3 


0162 




SQP 


2 


0727 


P01A<» 


68E7 




STA* 


STATUS 


0728 


P01A5 


1CF6 




JMP* 


(INP) 


0729 


P01A6 
P01A7 


68 00 
0182 




STA 


INADR 


0730 


P01A8 


1CF3 




JMP* 


(INP) 


0731 


P01A9 


1804 




JMP* 


13 


0732 


P01AA 


0C41 


11 


ENQ 


$41 



CONTENTS OF A AT LAST OUTPUT 



CONTENTS OF Q AT LAST OUTPUT 



ROUTINE IS ENTERED. 



SAVE STATUS 



INTERNAL REJECT (P+DELTA) 
EXT REJECT (P+1+DELTA) INPUT 



00713 
00714 
00715 

00716 
00717 

00718 
00719 
00720 

00721 
00722 
00723 
00724 
00 725 
00726 
00727 
00728 
00729 

00730 
00731 
00732 
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0733 


PQ1AB 


48E7 




STQ* 


EC1 


0734 


P01AC 


1803 




JMP* 


14 


0735 


P01AO 


0C01 


13 


ENQ 


1 


0736 


P01AE 


48E4 




STQ* 


EC1 


0737 


P01AF 
POIBO 


COOO 
BAOO 


14 


LDA 


=N$BAOD 


0738 


POiBi 
P01B2 


6800 
016A 




STA 


DATA1 


0739 


P01B3 


58E0 




RTJ* 


STD34 


0740 


P01B4 


0A20 




ENA 


$20 


0741 


P01B5 


E8DD 




LDQ* 


EC1 


0742 


P01B6 
P01B7 


5800 
0152 




RTJ 


STOP • 


0743 


P01B8 
P0189 


E800 
0164 


IS 


LOQ 


DATA? 


0744 


P01BA 


18E6 




JMP* 


12 


07if5 


P01BB 


0000 


LP? 


NUM 





0746 


POiBC 


0000 


EC? 


NUM 






DATEI 01/04/75 



SAVE ERR CODE FOR EXT REJ 



STORE ERR CODE FOR INT. REJ 



GET APPROPRIATE ERR CODE 



00733 
00734 
00735 
00 736 
00737 

00738 

00739 
00740 
00741 
00742 

00743 

00 744 
00745 
00746 



0748 P01BD 


0000 


FUNCA 


NUM 





0749 P01BE 


0000 


FUNCQ 


NUM 





0750 P01BF 


0000 


OUTPUT 


NUM 





0751 P01C0 


63FC 




STA* 


FUNCA 


0752 P01C1 


48 FC 




STQ* 


FUNCQ 


0753 P01C2 


4800 




STQ 


DATA4 


P01C3 


015C 








0754 P01C4 


6800 




STA 


DATA3 


P01C5 


0159 








0755 P01C6 


0844 




CLR 


A 


0756 P01C7 


68 F3 




STA* 


LP2 


0757 P01C8 


C8F4 




LOA* 


FUNCA 


0758 P01C9 


0302 


02 


OUT 


01-»-l 


0759 P01CA 


1CF4 




JMP* 


(OUTPUT) 


0760 P01CB 


1808 




JMP* 


03 


0761 P01CC 


0C42 


01 


ENQ 


$4? 


0762 P01CO 


48EE 




STQ* 


EC 2 


0763 P01CE 


D8EC 




RAO* 


LP2 


0764 P01CF 


C8EB 




LOA* 


LP? 


0765 P01O0 


B081 




EOR- 


HOOFF 


0766 P01D1 


0103 




SAZ 


04-*-l 


0767 P01O2 


1810 




JMP* 


05 


0768 P0103 


0C02 


03 


ENQ 


2 . 


0769 POlOi* 


48 E7 




STQ* 


EC 2 


0770 P01D5 


5800 


04 


RTJ 


INPUT 


P01D6 


FFBO 








60220800 F 









OUTPUT FUNCTIONS ENTER WITH 
FUNCTION, CONTENTS OF A 
FUNCTION, CONTENTS OF Q 



EXIT 

INTERNAL REJECT IP+OELTA) 
EXT REJ (P+1+DELTA) OUTPUT 
STORE ERR CODE FOR EXT REJ 
INCREMENT RETRY COUNTER 

TIME OUT (256 ATTEMPTS) 
TIMED OUT GO REPORT ERROR 
RETRY AGAIN 

STORE ERR CODE FOR INT. REJ 



00748 
00749 
00750 
00751 
00752 
00753 

00754 

00755 
00756 
00757 
00758 
00759 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00768 
00769 
00770 
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0P1008 


0771 


P01O7 


58B5 


0772 


P01O8 


6800 




P0109 


0144 


0773 


P01OA 


C800 




P010B 


FFBO 


0774 


P01DC 


6800 




P01OO 


013F 


0775 


PQ10E 


OA20 


0776 


P01DF 


E80C 


0777 


PO1E0 


5800 




P01E1 


0128 


0778 


P01E2 


E800 




P01E3 


013C 


0779 


P01E4 


C800 




P01E5 


0139 


0780 


P01E6 


18E2 



05 



PAGE 


22 


RTJ* 
STA 


AORINP 
DATA2 


LOA 


STATUS 


STA 


OATAi 


EN A 

LDQ» 

RTJ 


$20 
EC2 
STOP 


LOQ 


DATA** 


LOA 


0ATA3 


JMP* 


02 



OATEl 01/04/75 



* GO TO FRROR STOP ROUTINE 



00771 
00772 

00773 

00774 

00775 

00776 
00777 

00778 

00779 

00780 



0782 


P01E7 


OOOO 


8USYPRES 


NUH 





0783 


P01E8 


589E 




RTJ* 


. INPUT 


0784 


P01E9 
POIEA 


6800 
0132 




STA 


DATA1 


0785 


P01EQ 


A06C 




ANO- 


CONST+1 


0786 


P01EC 


0119 




SAN 


8USYl-*-i 


0787 


POIFO 
POIEE 


C800 
013B 




LOA 


INAOR 


0788 


P01EF 
POIFO 


6800 
012O 




STA 


0ATA2 


0789 


P01F1 


58A2 




RTJ* 


STD34 


0790 


P01F2 


OA20 




ENA 


S20 


0791 


P01F3 


0C08 




ENQ 


8 


0792 






* 






0793 


P01F4 


5800 




RTJ 


STOP 


.. .. . 


P01F5 


0114 








0794 


P01F6 


5869 


8USY1 


RTJ* 


RETCONT 


0795 


P01F7 


1CEF 




JMP* 


(BUSYPRES) 



CHECK FOR THE PRESENTS OF BUSY. 
STATUS 



CHECK FOR PRESENTS OF BUSY 



ERROR NUMBER, BUSY NOT PRESENT 
AFTER AN I/O OPERATION 



RETURN CONTROL TO MONITOR 
EXIT 



00782 
00783 
00784 

00785 
00786 
00787 

00788 

00789 
00790 
00791 
00792 
00793 

00*794 
00795 
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DATE 


0/97 PQ1F8 0000 


IOBUFFER NUM 





0798 P01F9 68ED 


STA* 


BUSYPRES 


07-99 -P01FA OAQO 


- - •-..■ - ENA 


• 


0800 P01FB 6800 


STA 


INTSTAT 


P01FC FEE7 






0801 J?01F0 -C8E9- 


LDA* 


BUSVPRES 


0802 P01FE 58C0 


RTJ» 


OUTPUT 


0603 P01FF 5800 


RTJ 


RETCOMT 


4*0200 D05F 







0804 P0201 E800 


LDQ 


INTSTAT * 


P0202 FEE1 






-Q845P020.3 fll<»2- 


_ : SQZ 


2 ... .,— 


0806 P0204 1800 


JMP 


REQ8 IN 


P0205 FF24 






0OO7-P«06 ICFlr 


_._.'.-' ..'-.. JMP*-: 


( IOBUFFER J- 


0808 P0207 0000 


WAIT NUM 





0809 P0208 5800 


RTJ INPUT 


GET STATUS 


. .....-PQ209- FF70 


... .. - . ■ . 




0810 P020A A06C 


AND- 


CONST+1 


0811 P020B 0101 


SAZ 


1 


4842 FO20C-18FB- 


._._ .: JMP* 


HAIT+1 


0813 P020D 1CF9 


JMP* 


(WAIT) 



INTERRUPT OCCURRED TOO SOON 



00797 
00798 
40799 
00800 

00801 
00802 
00803 

0080% 

00305 
00806 

00807 
00808 
00809 

00810 
00811 
00812 ' 
00813 



0815 P020E- 0000 - INBUF 


NUM 


.. a - - 


0816 P020F £800 


LOQ 


EQ.REAO 


P0210 0113, 






0817.P0211 COOQ . T3 


LDA 


=XIBUFFER-i 


P0212 0924 P 






0818 P0213 58EV 


RTJ* 


IOBUFFER 


0419 P0214 1CF9 ...- 


JMP* 


(INBUF) 



SELECT REAO AND INPUT BUFFER 



00815- 
00816 



********* BIAS ***************** ... 00817. 

00818 

.--'.■ • -•.; 00819 



0821 P0215 0000 LOADAOR NUM 

,.0»22 — -.w..:, »...:.,_.,.■ .. 

0823 * 

082l» P0216 5808 RTJ* 



LIMIT 



LOAO ADDRESS. CHK, FOR PRESENTS 00821 

OF BUSY, AND TURN CONTROL OVER 00822 

TO THE MONITOR 00823 

LIMIT CYLINDER NO. TO RANGE 00824 
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DATE! 01/04/75 



0825 P0217 


C800 




LDA 


OBUFFER 


P0218 


06AC 








0626 P0219 


E800 




LOQ 


EQUIPADR 


P021A 


0107 








0827 P0218 


58A3 




RTJ* 


OUTPUT 


0829 P021C 


5843 




RTJ* 


RETCONT 


0829 P021O 


1CF7 




JMP* 


(LOADADR) 


0830 P021E 


0000 


LIMIT 


NUH 





0831 P021F 


0A00 




ENA 





0832 P0220 


E800 




LOQ 


OBUFFER 


P0221 


06A3 








0833 P0222 


0FE8 


, 


LLS 


8 


0834 P0223 


6808 




STA* 


AHIGH 


0835 P022<» 


9806 




SUB* 


RLOW 


0836 P0225 


0126 




SAP 


LOi-*-l 


0837 P0226 


C803 




LDA* 


RHIGH 


0838 P0227 


0FE8 




LLS 


8 


0839 




* 






0840 P0228 


1809 




JMP* 


L02 


0841 P0229 


0000 


RHIGH 


NUH 





0642 P022A 


0000 


RLOW 


NUH 





0843 P0228 


0000 


AHIGH 


NUH 





0844 P022C 


C8FC 


LOl 


LOA* 


RHIGH 


0845 PQ220 


98 FO 




SUB* 


AHIGH 


0846 P022E 


0124 




SAP 


LD3-*-l 


0847 P022F 


C8FA 




LOA* 


RLOW 


0846 P0230 


0FE5 




LLS 


8 


0849 




* 






0850 P0231 


6800 


LO? 


STA 


OBUFFER 


P0232 


0692 








0651 P0233 


1CEA 


LD3 


JMP* 


(LIMIT) 



EQUIPMENT ADDRESS 
POSITION 

PACK AOORESS 
CHK. LOW OROER 



PUT HIGH RANGE AND LOWER OROER 
BITS INTO PACK AOORESS 

HIGH ORDER RANGE OF CYL. 
LOW ORDER RANGE OF CYL. 
ADDRESS HIG OROER 



PUT LOW RANGE AND LOWER ORDER 
BITS INTO PACK ADDRESS 



00825 

00826 

00827 
00828 
00829 
00830 
80831 
00832 

00833 
00 834 
00835 
00836 
00837 
00838 
00839 
00840 
00841 
00842 
00843 
00844 
00845 
00846 
00847 
00648 
00849 
00650 

00851 



r~ 



0853 P0234 0000 


NOINTP 


NUM 





0854 P0235 5800 




RTJ 


INPUT 


P0236 FF50 








065* P0237 6600 




STA 


DATA2 


P0238 00E5 








0856 PD239 C800 




LOA 


ALAPH 


P023A FDCD 








0857 P023B 6600 




STA 


DAT A 3 


P023C 00E2 








0856 P&23D C800 




LOA 


REQ<» 


P023E FEA3 








0859 P023F 6800 




STA 


0ATA*t 


P0240 00OF 








60220800 F 
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^ 



00853 
00854 

00855 

00656 

00657 

00858 

00859 
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DATE* 01/04/75 



0860 P02<»1 0A20 

0861 P0242 E800 
P0243 FEA0 

0862 P02*»*f iCEF 



ENA $20 
LDQ INTSTAT 

JMP* <NOINTP) 



00860 
00861 

00862 



0864 


P0245 


0000 


ADRINTP 


NUM 


LOAD AOORESS 


0865 






* 






0866 






* 






0867 


PQ246 


C8FE 




LOA* 


ADRINTP 


0868 


P0247 
P0248 


6800 
OOED 




STA 


AODRF.SS 


0869 


PQ249 
P024A 


5800 
FE8A 




RTJ 


SELECT 


0870 






* 






0871 


P024B 


1802 




JMP* 


ADR1 


0872 


PQ2*»C 


180C 




JMP* 


AOR2 


0873 


P024D 


58C7 


AOR1 


RTJ* 


LOADADR 


0874 


P024E 


58E5 




RTJ* 


NOINTP 


0875 


P024F 


0158 




SQN 


AOR2-*-l 


0876 


P0250 
P0251 


5800 
0094 




RTJ 


STD21 


0877 


P0252 


0C21 




ENQ 


$21 


0878 


P0253 
P025*» 


5800 
00B5 




RTJ 


STOP 


0879 


P0255 
P0256 


5800 
0102 




RTJ 


RETSTAT 


0880 


P0257 


1806 




JMP* 


ADR3 


0881 


P0258 
P0259 


4800 
FF32 


AOR2 


STQ 


STATUS 


0882 


PD25A 


5B1E 




RTJ* 


IECHK 


0883 


P025B 
P025C 


5800 
FED7 




RTJ 


CONALARM 


088<t 


P025O 
P025E 


1800 
00OB 


ADR3 


JMP 


CHKA3 



WITH END OF OPERATION 

AND ALARM INTPS. SELECTED. THEN 
RE-ELECT THE INTPS FOR THE I/O 

SET UP RETURN ADDRESS 

SELECT END OF OPERATION AND 

ALARM INTPS. 

INTERRUPT OCCURRED 
POSITION AND WAIT NOT BUSY 



STATUS WHEN INTERRUPT OCCURRED 
CHECK FOR INTERRUPT ERRORS 

GO CHECK ADDRESS REGISTER STATUS 



00864 
00865 
00866 
00867 
00868 

00869 

00870 
00871 
00872 
00873 
00874 
00875 
00876 

00877 
00878 

00879 

00880 
00881 

00882 
00883 

00884 
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PAGE 


26 


DATEt 01/04/75 


0886 


P025F 


0000 


RETCONT 


NUM 







0887 


P0260 
P0261 


coao 

0265 P 




LDA 


=XDECTDE 




0888 


P0262 
P0263 


6800 
F0A1 




STA 


RETURN 




0889 


P0264 


5401 




RTJ- 


(CONTROL) 




0890 


P0265 
P0266 


5800 
FF20 


DECIDE 


RTJ 


INPUT 


GET STATUS 


0891 


P0267 


A06C 




ANU- 


CONST+1 




0892 


P0268 


0101 




SAZ 


CKCONT-*-l 


\ 


0893 


P0269 


5401 




RTJ- 


(CONTROL) 




0894 


P026A 


1CF.4 


CKCONT 


JMP» 


(RETCONT) 


EXIT 



00886 
00887 

00888 

00889 
00890 

00891 
00892 
00893 
00894 



0896 


P026B 


0000 


0897 


P026C 


C800 




PQ260 


FE76 


0898 


P026E 


6800 




P026F 


OOAE 


0899 


P0270 


C800 




P0271 


FE70 


0900 


P0272 


6800 




P0273 


0OA9 


0901 


P0274 


5800 




P0275 


FF1E 


0902 


P0276 


0A20 


0903 


P0277 


1CF3 


0904 


P0278 


0000 


0905 






0906 


P0279 


C800 




P027A 


FEB2 


0907 


P0273 


0104 


0908 


P027C 


0A00 


0909 


P027D 


OCOl 


0910 


P027E 


5800 




P027F 


008A 


0911 


P0280 


C800 




P0281 


FE62 


0912 


P0282 


6800 




P0283 


0099 


0913 


P0284 


E800 




P0285 


009B 


0914 


P0286 


4800 




P0287 


0098 


0915 


P0288 


C800 




P0289 


FEA4 




60220800 



MFSS 



IECHK 



IEA 



NUM 
LUA 



INTSTAT 


STA 


DATA2 


LDA 


•REQ4 


STA 


DATA1 


RTJ 


ST 03 4 


ENA 

JMP* 

NUM 


$20 

(MESS) 




LDA 


ERRZA 


SAZ 
ENA 
ENQ 
RTJ 


IEA-*-l 



1 

STOP 


LDA 


INTSTAT 


STA 


DATA1 


LDQ 


EQUIPDIR 


STQ 


DATA4 


LDA 


ERRZB 



CHECK FOR ERRORS DURING 
INTERRUPT PROCESSING 



INTERNAL REJECT OF STATUS INPUT 



STATUS AFTER INTERRUPT 



00896 
00897 

00898 

00899 

00900 

00901 

00902 
00903 
00904 
00905 
00906 

00907 
00908 
00909 
0091Q 

00911 

00912 

00913 

00914 

00915 
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0916 


P028A 


010A 


0917 


P028Q 


0C02 


0918 


P028C 


4800 




P028D 


0091 


0919 


P028E 


C8 00 




P028F 


009A 


0920 


P0290 


6800 




P0291 


008C 


0921 


P0292 


0A20 


0922 


P0293 


5800 




P0294 


00 75 


0923 


P0295 


C800 




P0296 


FE98 


0924 


P0297 


E800 




P0298 


FE49 


0925 


P0299 


4800 




P029A 


0082 


0926 


P029B 


0104 


0927 


P029C 


58CE 


0926 


P029D 


0C04 


0929 


P029E 


5800 




P029F 


006A 


0930 


P02A0 


C800 




P02A1 


FE8E 


0931 


P02A2 


0104 


0932 


P02A3 


58C7 


0933 


P02A4 


0CO3 


0934 


P02A5 


5800 




P02A6 


0063 


0935 


P02A7 


C800 




P02A8 


FE88 


0936 


P02A9 


E800 




P02AA 


0076 


0937 


P02A8 


4800 




P02AC 


0071 


0938 


P02AO 


010A 


0939 


P02AE 


COOO 




P02AF 


8AD0 


0940 


P02B0 


6800 




P02B1 


00 68 


0941 


P02B2 


5800 




PQ2B3 


FEED 


0942 


P02B4 


0A20 


0943 


P02B5 


0C01 


0944 


P02B6 


5800 




P02B7 


0052 


0945 


P02B8 


C300 




P02B9 


FE78 


0946 


P02BA 


010E 


0947 


P028B 


C800 




P028C 


FE27 


948 


P02BO 


6800 




P028E 


00 5E 



IEB 



IEC 



IED 



IEE 



PAGE 


27 


SA7 
ENO. 
STQ ' 


IEB-*-l 

2 

0ATA3 


LOA 


INA09 


STA 


DATA2 


ENA 
RTJ . 


$20 
STOP 


LDA 


ERRZC 


LOQ 


REQ4 


STQ 


DATA1 


SAZ 
RTJ» 
ENO 
RTJ 


IEC-*-l 
MESS 

STOP 


LDA 


ERRZO 


SAZ 
RTJ* 
ENU 
RTJ 


IED-»-l 
MESS 
3 
STOP 


LDA 


ERRZE 


LDQ 


EQUIPDIR 


STQ 


0ATA2 


SAZ 

LOA 


IEE-*-l 
=N$BADO 


STA 


OATA1 


RTJ 


STD34 


ENA 
ENQ 
RTJ 


$20 

1 

STOP 


LOA 


ERRZF 


SAZ 

LOA 


IEF-*-i 
INTSTAT 



OATEt Ul/04/75 



NON-SELECTEO INTERRUPT OCCURRED 



INTERRUPT BIT NOT SET 



INT. REJECT OF STATUS INPUT 



STA 



DATA1 



00916 
00917 
00918 

00919 

00920 

00921 
00922 

00923 

00924 

00925 

00926 
00927 
00928 
00929 

00930 

00931 
00932 
00933 
00934 

00935 

00936 

00937 

00 938 
00939 

00940 

00941 

00942 
0091*3 
00944 

00945 

00946 
00947 

00 948 
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PAGE 


28 


09*»9 


P02BF E800 
P02C0 FE72 


LOQ 


ERRZG 


0950 


P02C1 <»800 
P02C2 0050 


STQ 


0ATA2 


0951 


P02C3 5800 
P02C4 FECF- 


RTJ 


ST03t» 


0952 


P02C5 0A20 


ENA 


$20 


0953 


P02C6 0C05 


ENQ 


5 


0954 


P02C7 5800 
P02C8 00«ti 


RTJ 


STOP 


0955 


P02C9 1CAE IEF 


JMP» 


(IECHK) 


0956 


P02CA 0000 WRITc NUM 





0957 


P02CB 5800 
P02CC FF78 


RTJ 


ADRINTP 


0956 


P02CD 5800 
P02CE 052*» 


RTJ 


SC11E 


0959 


P02CF 5800 
P02D0 FE0«» 


RTJ 


SELECT 


0960 


PQ201 1802 


JMP* 


WRT1 


0961 


P02O2 180C 


JMP* 


WRT2 


0962 


P02O3 5800 HRT1 RTJ 


OUTBUF 




P0204 009E 






0963 


P02O5 5800 
P02D6 FF5D 


RTJ 


NOINTP 


0964 


P02D7 580E 


RTJ* 


STD21 


0965 


P02D8 0C21 


ENQ 


$21 


0966 


P02D9 5800 
P02OA 002F 


RTJ 


STOP 


0967 


P02DB 5800 
P02OC 007C 


RTJ 


RET ST AT 


0968 


P02DO 1CEC 


JMP* 


(HRITE) 


0969 


P02DE MOO WRT2 STQ 


STATUS 




P02OF FEAC 






0970 


P02E0 5800 
P02E1 FF96 


RTJ 


TECHK 


0971 


P02E2 5800 
P02E3 FE50 


RTJ 


CONALARM 


0972 


P02E<» 1CE5 


JMP* 


(WRITE) 



0ATE1 Oi/Qit/75 



INTERRUPT BITS NOT CLEAREO 
HRITE UNOER INTP. CONTROL 
WAIT 165MS MAX FOR NOT BUSY 

INTP. OCCURREO 



STATUS WHEN INTERRUPT OCCURREO 
CHECK FOR INTERRUPT ERRORS 



009<»9 

00950 

00951 

00952 
00953 
00954 

00955 
00956 
00957 

00958 

00959 

00960 
00961 
00962 

00963 

0096% 
00965 
00966 

00967 

00968 
00969 

00970 

00971 

00972 



0974 P02E5 0000 

0975 P02E6 E800 
P02E7 FOFA 

0976 P02E8 WOO 
P02E9 0033 



STD21 



NUM 

loq 

STQ 




REQ4 

OATA1 



0097*1 
O0975 

00976 
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DATE! 01/04/75 



0977 P02EA 5800 


RTJ 


ST034 


P02EB FEA8 






0978 P02EC 8A20 


ENA 


$20 


0979 P02ED 1CF7 


JMP* 


<STD21> 


0980 P02EE 0000 READ NUM 





8981 P02EF 5800 


RTJ 


AORINTP 


P02F0 FF54 






0982 P02F1 5800 


RTJ 


SC11E 


P02F2 0500 






0983 P02F3 5800 


RTJ 


SELECT 


P02F4 FOE0 






8984 P02F5 1802 


JMP* 


ROi 


0985 P02F6 180C 


JMP* 


R02 


0986 P02F7 5800 ROl 


RTJ 


INBUF 


P02F8 FF15 






0987 P02F9 5800 


RTJ 


NOINTP 


P02FA FF39 






0988 P02F8 58E9 


RTJ* 


ST021 


0989 P02FC 0C21 


ENQ 


$21 


0990 P02FD 5800 


RTJ 


STOP 


P02FE 0008 






0991 P02FF 5800 


RTJ 


RETSTAT 


P030O 0058 






0992 P0301 1CEC 


JMP* 


(READ) 


0993 P0302 4800 RD2 


STQ 


STATUS 


P0303 FE88 






0994 P0304 5808 


RTJ 


IECHK 


P0305 FF72 




, 


0995 P0306 5800 


RTJ 


CONALARM 


P0307 FE2C 






0996 P0308 1CE5 


JMP* 


(READ) 



READ UNOER INTP. CONTROL 



WAIT 165HS MAX FOR NOT BUSY 



REAO ONE SECTOR 



STATUS WHEN INTERRUPT OCCURRED 
CHECK FOR INTERRUPT ERRORS 



00977 

00978 
00979 
00980 
00981 

08982 

00983 

00984 
00985 
00986 

00987 

00988 
00989 
00990 

00991 

00992 
00993 

80994 

00995 

00996 



0998 P03O9 .0000 STOP NUM 





0999 P030A 8000 


EOR 


=N$808 


P030B 0808 






1000 P030C 680D 


STA* 


ID 


1001 P030O F800 


ADO 


SECTION 


P030E F059 






1002 R030F 4808 


STQ* 


SECERR. 


1003 P0310 E043 


LDQ- 


STJP 


1004 P0311 C8F7 


LOA* 


STOP 


1005 P0312 0FA6 


. QLS 


6 


1006 P0313 0171 


SQM 


1 


1007 P0314 9814 


SUB* 


BIAS 



STOP SUB-ROUTINE 


00998 


MAKE IOENT WORD 


00999 




01800 




01801 


SECTION AND ERROR 


01002 




01003 




81004 




01005 




01006 




01007 
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PAGE 


30 


1008 


P0315 


6806 




STA» 


RETADR 


1009 


P0316 


0A00 




ENA 





141* 


PA317 


5*02 




RTJ- 


(STOPX) 


1011 


P0318 


1CF0 




JMP» 


(STOP) 


1012 


P0319 


0000 


10 


NUM 





1013 


P031A 


0000 


SEC ERR 


NUH 





101* 


P0318 


0000 


RETAnR 


NUM 





1015 


P031C 


0000 


OATA1 


NUH 





1016 


P0310 


eooo 


DATA2 


NUH 





1017 


P031E 


0000 


DATA3 


NUM 





1018 


P031F 


0000 


DATAtf 


NUM 





1019 


P0320 


0000 


EQUIPDIR 


NUM 





1020 


P0321 


0000 


EQUIPAOR 


NUM 





1021 


P0322 


0000 


EQWRITE 


NUM 





1022 


P0323 


0000 


EQREAO 


NUM 





1023 


P032* 


0000 


EQCOMP 


NUM 





102* 


P0325 


0000 


EOCHKWO 


NUM 





1025 


P0326 


0000 


EQHRTADO 


NUM 





1026 


P0327 


0000 


EXTVALUE 


NUM 





1027 


P0328 


0000 


BIAS 


NUM 





1*26 


P8329 


0000 


INAOR 


NUM 






OATEI 01/0*/75 



IDENT WORD 

SECTION/ERROR 

RETURN ADDRESS 

DATA 

DATA 

DATA • 

DATA 
DIRECTOR AND DIRECTOR STATUS FUNCTION 

LOAD ADDRESS AND ADDRESS REGISTER STATUS 
WRITE 
READ 
COMPARE 

CHECKWORO CHECK 
WRITE ADDRESS 



ADDRESS REGISTER STATUS 



01008 
01009 
01010 
01011 
01012 
01013 
0101* 
01015 
01016 
01017 
01018 
01019 
01020 
01021 
01022 
010*3 
0102* 
01025 
01026 
01027 
01028 



1030 P032A 0000 CLRCON 



1031 
1032 
1033 

103* 

1035 
1036 

1037 



P032B 
P032C 
P032D 
P&32E 
P032F 
P0330 
P0331 
P0332 
P0333 
P033* 



0A02 
E8F3 
5800 
FE90 
C800 
FDB2 
E8EE 
5800 
FE8B 
1CF5 



ENA 

LOQ* 

RTJ 


2 

EQUIPDIR 

OUTPUT 


LOA 


UNIT 


LOQ* 
RTJ 


EQUIPDIR 
OUTPUT 


JMP* 


(CLRCON) 



CLEAX CONTROLLER AND CONNECT 



CLEAR CONTROLLER 



CONNECT UNIT 



01030 
01031 
01032 

01033 

0103* 

01035 
01036 

01037 



1039 P0335 0000 AODRESS NUM 



01039 



n n 
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1040 P0336 


5800 


RTJ 


LOADADR 


P0337 


FEDO 






1041 P0338 


5820 


RTJ* 


RETSTAT 


1042 P0339 


5800 CHKA3 RTJ 


ADRINP 


P033A 


FE52 






1043 P033B 


68E2 


STA* 


DATA3 


1044 P033C 


E800 


LDQ 


OBUFFER 


P0330 


0587 






1045 P033E 


48E0 


STQ* 


DATA4 


1046 P033F 


8800 


EOR 


OBUFFER 


P0340 


0584 






1047 P0341 


0111 


SAN 


1 


1048 P0342 


1CF2 


JMP* 


(ADDRESS) 


1049 P0343 


D800 


RAO 


ALFLAG 


P0344 


FE34 






1050 P0345 


cooo 


LDA 


=N$BAOD 


P0346 


BADO 






1051 P0347 


6804 


STA* 


OATA1 


1052 P0348 


C800 


LDA 


STATUS 


P0349 


FE42 






1053 P034A 


68D2 


STA» 


DATA2 


1054 P034B 


0A20 


ENA 


320 


1055 P034C 


0C11 


ENQ 


$11 


1056 P034O 


58BB 


RTJ* 


STOP 


1057 P034E 


1CE6 


JMP* 


(ADDPESSI 



ADDRESS REGISTER STATUS 



COMPARE AODRESS 



ERROR NUMBER* 
EXIT 



01040 

01041 
01042 

01043 
01044 

01045 
01046 

01047 
01048 
01049 

01050 

01051 
01052 

01053 
01054 
01055 
01056 
01057 



1059 


F034F 


0000 


MOVFADR NUM 





1060 


P0350 
P0351 


E800 
FD73 


LOQ 


SECTPASS 


1061 


P0352 


0060 


I NO, 


96 


1062 


P0353 
P0 354 


CAOO 
0570 


LDA 


OBUFFER, Q 


1063 


P0355 
P0 356 


6800 

056E 


STA 


OBUFFER 


1064 


P0357 


1CF7 


JMP* 


CHOVEADR) 



HOVE THE NEXT ADDRESS UP 



01059 
01060 

01061 
01062 

01063 

01064 
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1066 P0358 0000 RETSTAT NUM 

1067 P0359 5800 
P035A FE2C 

1066 P0358 5800 

P035C FDD7 

1069 P035O 1GFA 



PAGE 


32 




NUM 
RTJ 





INPUT 


RTJ 




CONALARM 


JMP* 




CRETSTAT) 



DATE* 01/04/75 



CHK. ALARM CONDITIONS WITHOUT INTPS, 



01066 
01067 

01068 

01069 



1071 P035E 0000 SECGEN 


NUM 





1072 »■ 






1073 P035F 0C9F 


ENQ 


-96 


1074 P0360 4800 


STQ 


SECTPASS 


P0361 F063 






1075 P0362 0852 


TCQ 


Q 


1076 P0363 CO00 Tl 


LOA 


=XOSUFFEP 


P0364 08C4 P 






1077 P0365 5407 


RTJ- 


(GENRAN) 


1078 P0366 1CF7 


JMP» 


(SECGEN) 



SET SECTION COUNT TO 96 AND 
GENERATE 96 RANDOM NUMBERS 



?********¥ BIAS **************** 
GENERATE RANDOM NUMBERS 



01071 
01072 
01073 
01074 

01075 
01076 

01077 
01078 



1080 P0367 0000 GENSEC 

1081 * 

1082 P0368 COOO T2 



1083 
1084 

1085 

1086 

1087 



P0368 COOO 
P0369 08C4 
P036A 5407 
P0363 COOO 
P036C 08C4 
P0360 EOOO 
P036E 08C5 
P036F 5800 
P0370 OOCE 
P0371 1CF5 



NUM 



LOA 



GEN. RANOOM DATA AND CONVERT FIRST WORD TO 

LEGAL ADDRESS. ENTER WITH Q= NUMBER OF WORDS 
=XOBUFFER *»*»*****» gj/is **************** 



RTJ- 
LOA 


(GENRAN) 
=XOBUFFFR 


LOQ 


=XOBUFFERfl 


RTJ 


CONV 


JMP* 


(GENSEC) 



MAKE LEGAL ADDRESS 



01080 
01081 
01082 

01083 
01084 

01085 

01086 

01087 
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OATEI 0i/0«t/75 



1089 P0372 0000 OUTBUF 


NUH 





1890 P8373- E8AE - 


LOQ*~ 


-EQWRITE • • 


1091 P0374 C00D T10 


LDA 


sXOBUFFER-1 


P0375 08C3 P 






1892 P0376 5800 


RTJ 


IOBUFFER 


P0377 FE80 






1093 P0378 1CP9 


JMP* 


(OUTBUF) 



SELECT WRITE AND OUTPUT BUFFER 



01089 
01090 
BIAS ***•***» 81091 

01092 

01093 



1095 P0379 0000 


COMBUF 


NUM 





COMPARE BUFFER 


01095 


1096 P037A E8A9 




LDQ* 


EQCOMP 




01096 


1097 PQ37B CflOO. 


Til „ 


...LDA 


sXOBUFFER-1 


****************** BIAS ******** 


01097 


P037C 08C3 P 












1098 P037O 5800 




RTJ 


IOBUFFER 




01096 


PQ37E FE79 












1099 P037F 5800 




RTJ 


INPUT 


GET STATUS 


01099 


P0380 FE06 












1100 P0381 8800 




STA 


OATA1 


STATUS 


01100 


P0382 FF99 












1101 P0383 E8A5 




LDQ» 


INAOR 




01101 


1182 P0384 *t880 




STQ 


0ATA2 ■ 




01102 


P0385 FF97 












1103 P0386 A071 




ANO- 


CONST+6 


CHECK NO COMPARE BIT 


01103 


1104 P0387 010l> 




SAZ 


COHB-»-l 




0U0<» 


1105 P0388 0A10 




ENA 


$10 




01105 


1106 P0389 0C15 




ENQ 


$15 


ERRCODE 


01106 


1107 P038A 5800 




RTJ 


- STOP 




01107 


P038B FF70 












1108 P038C 5800 


COMB 


RTJ 


CONALARM 


CHECK ALARM CONDITIONS 


01108 


P038D FDA6 












1109 P038E 1CEA 




JMP* 


ICOMBUF) 




01109 
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OP1008 



llil P(J38F 0000 CHKWORO NUM 



1112 P0390 
P0391 

1113 P0392 
P0393 

1114 P0394 
P0395 

1115 P0396 
P0397 

1116 P0398 



E800 
FF93 
C800 
0531 
5800 
FE62 
5800 
FFCO 
1CF6 



PAGE 


34 




NUM 
LQQ 





EQCHKHO 


LOA 




OBUFFER 


RTJ 




IOBUFFER 


RTJ 




RETSTAT 


JMP* 




(CHKWORO) 



OATEJ 0i/0<»/75 



CHECKHORD CHECK 



01111 
01112 

01113 

01114 

01115 

01116 



1118 


P0399 


0000 COMPARE NUM 





1119 


P039A 


C88E 


LOA* 


INADR 


1120 


P039B 


6880 


STA* 


OATA1 


1121 


P039C 


0C00 


ENQ 





1122 


P039D 


<»829 


STQ» 


WOROCNT 


1123 


P039E 


CAOO COM<t LOA 


OBUFFER, 




P039F 


0525 






112«t 


P03A0 
P03A1 


6800 
FF7C 


STA 


0ATA3 


1125 


P03A2 
P03A3 


BAOO 
0582 


EOR 


IBUFFERtQ 


1126 


P03A<» 


0111 


SAN 


1 


1127 


P03A5 


180F 


JMP* 


COM1 


1128 


P03A6 
P03A7 


CAOO 
057E 


LDA 


IBUFFER,Q 


1129 


P03A8 
P03A9 


6800 
FF75 


STA 


DATA4 


1130 


P03AA 
P03A3 


4800 
FF71 


STQ 


0ATA2 


1131 


P03AC 


0A20 


ENA 


32(1 


1132 


P03AO 


0Cl<t 


ENQ 


S14 


1133 


P03AE 
P03AF 


5800 
FF59 


RTJ 


STOP 


113*1 


P03B0 


C0/f3 COM3 LDA- 


STJP 


1135 


P03B1 


A0 76 


AND- 


CONST+11 


1136 




* 






1137 


P03B2 


0101 


SAZ 


1 


1138 


P0383 


1810 


JMP* 


COM1A 


1139 


P038(» 


0812 COM1 RAO* 


WOROCNT 


1140 


P03B5 


0A9F 


ENA 


-96 


1141 


P03B6 


8810 


AOU* 


WOROCNT 


11^2 


P03B7 


one 


SAN 


COM1A-* 


1143 


P03B8 


0C00 


ENQ 






COMPARE UNDER INTP. CONTROL 
AODRESS REGISTER 



WORD COUNT 

WORD WRITTEN 
WORO READ 

WORD READ 

WORD IN SECTOR THAT IS IN ERROR 
ERROR NUMBER. DATA COMPARE ERROR 



SHOULD THE REST OF THE ERRORS 
BE SKIP IN THIS SECTOR 

EXIT 



CONTINUE COMPARING 



01118 
01119 
01120 
01121 
01122 
01123 

01124 

01125 

01126 
01127 
01128 

01129 

01130 

01131 
01132 
01133 

01134 
01135 
01136 
01137 
01138 
01139 
01140 
01141 
01142 
01143 
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11** 


P03B9 


CA00 




ENA 





11*5 


P03BA 
P03BB 


6AO0 
056A 


COH1A1 


STA 


IBUFFER,Q 


11*6 


P03BC 


0D01 




INR 


1 


11*7 


P03BD 
P03BE 


F000 
FF9F 




ADQ 


=N-96 


11*8 


P03BF 


0143 




SQZ 


COMiA-*-l 


11*9 


P03C0 
P03CI 


F000 
0060 




ADQ 


=N96 


1150 


P03C2 


18F7 




JMP* 


COM1A1 


1151 


P03C3 


1CD5 


COM1A 


JMP* 


CCOMPARF) 


1152 


P03C* 


E802 




LOR* 


WOROCNT 


1153 


P03C5 


18D8 




JMP* 


COM** 


115* 


P03C6 


0000 


WOROCNT 


NUM 






DATEI Ql/Qk/75 



CLEAR BUFFER AREA 



EXIT 



011%* 
811*5 

011*6 
011*7 

011*8 
011*9 

01150 
01151 
01152 
01153 
0115* 



1156 


P03C7 


0000 


CHINTP 


NUM 





1157 


P03C8 
P03C9 


5800 
FDOB 




RTJ 


SELECT 


1158 


P03CA 


1802 




JMP* 


CW1 


1159 


P03CB 


180B 




JMP* 


CW2 


1160 


P03CC 
P03CD 


5800 
FFC1 


CW1 


RTJ 


CHKWORD 


1161 


P03CE 
P0 3CF 


5800 
FE6* 




RTJ 


NOINTP 


1162 


P03O0 
P03D1 


5800 
FF13 




RTJ 


STD21 


1163 


P03O2 


0C21 




ENQ 


$21 


116* 


P03D3 
P03D* 


5800 
FF3* 




RTJ 


STOP 


1165 


P03O5 


1CF1 




JMP* 


CCWINTP) 


1166 


P03D6 
P03D7 


*800 
F08* 


-CW2 


STQ 


STATUS 


1167 


P0308 
P0309 


5800 
FE9E 




RTJ 


IECHK 


1168 


P030A 
P03DB 


5800 
FD58 




RTJ 


CONALARM 


1169 


P03DC 


1CEA 




JMP* 


CCWINTP) 


1170 


P03DU 


0000 


CBINTP 


NUM 





1171 


P03DE 
P03DF 


5800 
FCF5 




RTJ 


SELECT 


1172 


P03E0 


1802 




JMP* 


CB1 


1173 


P03E1 


180B 




JMP* 


CB2 


117* 


P03E2 
P03E3 


5800 
FF95 


CB1 


RTJ 


COMBUF 



CHECKWORO CHECK* INTERRUPT MODE 

INTERRUPT OCCURRED 
NO INTERRUPT 



EXIT 
STATUS WHEN INTERRUPT OCCURRED 

CHECK FOR INTERRUPT ERRORS 

CHECK ALARM CONDITIONS 

COMPARE INTERRUPT MODE 
INTERRUPT OCCURRED 



01156 
01157 

01158 
01159 
01160 

01161 

01162 

01163 
0116* 

01165 
01166 

01167 

01168 

01169 
01170 
01171 

01172 
01173 
0117* 
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DP1Q08 



1175 


P03E4 


5800 




P03E5 


FE4E 


1176 


P03E6 


5800 




P03E7 


FEFD 


1177 


P03E8 


0C21 


1178 


P03E9 


5800 




P03EA 


FF1E 


1179 


P03EB 


1CF1 


1180 


P03EC 


4800 




P03ED 


F09E 


1181 


P03EE 


5800 




P03EF- 


FE88 


1182 


P03F0 


C800 




P03F1 


F09A 


-4189- P03F2 


6800 




P03F3 


FF28 


1184 


P03Fi» 


E800 




P03F5 


FF33 


1185 


P03F6 


4800 




P03F7 


FF25 


1186 


P03F8 


A071 


1187 


P03F9 


0104 


1188 


P03FA 


0A10 


1189 


P03F8 


0C15 


1190 


P03FC 


5800 




P03FD 


FF08 


1191 


P03FE 


5800 




P03FF 


FD34 


1192 


PO^OO 


1C0C 


1193 


P0<»01 


0000 


1194 


P0li02 


5800 




P0%03 


FD89 


1195 


P040<» 


6800 




P0405 


FF18 


1196 


P0406 


C800 




P0<»07 


0480 


1197 


P0<»08 


A07E 


1198 


P0*»09 


9000 




PQ*»OA 


0090 


1199 


PQ<»OB 


0115 


1200 


P040C 


C800 




P040D 


04B7 


1201 


P040E 


A082 


1202 


P040F 


8073 


1203 


P0*»10 


1807 


1204 


PO«»il 


C800 




P0«»12 


0*»B2 


1205 


P0413 


OCOO 


1206 


PQ414 


0F44 


1207 


P0<»15 


0FE4 


1208 


P0416 


0910 


1209 


P0417 


6800 




po^is 


FF06 



CB2 



C83 



GHKTRK 



TRKi 



TRK 



TRKZ 



PAGE 


36 


RTJ 


NOINTP 


RTJ 


STD21 


ENQ 
RTJ 


$21 
STOP 


JHP» 
STQ 


(C8INTP) 
STATUS 


RTJ 


IECHK 


LOA 


STATUS 


STA 


DATA1 


LOQ 


INADR 


STQ 


DATA2 


ANO- 

SAZ 

ENA 

ENQ 

RTJ 


CONST+6 

CB3-*-l 

$10 

$15 

STOP 


RTJ 


CONALARM 


JMP» 

HUM 

RTJ 


(CBINTP) 



AORINP 


STA 


nATA3 


LOA 


OBUFFER 


AND- 
SUB 


HOOFO 
=N$90 


SAN 
LDA 


TRK-*-l 
OBUFFER 


AND- 
ADO- 
JMP» 
LDA 


HFFOO 
CONST+8 
TRK2 
OBUFFER 


ENQ 
ARS 
LLS 
INA 
STA 




sin 

DATA'* 



DATE! 01/0W75 



NO INTERRUPT 



STATUS WHEN INTERRUPT OCCURRED 
CHECK FOR INTERRUPT ERRORS 



CHECK NO COMPARE BIT 



ERRCODE 



CHECK ALARM CONDITIONS 



CURRENT ADDRESS 



OOFO 



JUMP IF NOT TRACK 9 



FFOO 

FORM EXPECTED ADDRESS 



IGNORE SECTOR BITS 
STORE FXPECTEO ADDRESS 



01175 

01176 

01177 
01178 

01179 

01180 

01181 

01182 

01183 

01184 

01185 

01186 
01187 
01188 
01189 
01190 

01191 

01192 
01193 
01194 

01195 

01196 

01197 
01198 

01199 
01200 

01201 
01202 
01203 
01204 

01205 
01206 
01207 
01208 
01209 
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DATE! 01/04/75 



1210 P0419 8800 


EOR 


0ATA3 


P041A FF03 






1211 P041B 0111 


SAN 


1 


1212 P041C 1CE4 


JMP* 


CCHKTRK) 


1213 P041D 0800 


RAO 


ALFLAG 


P041E FD5A 






1214 P041F E800 


LDQ 


FUNCQ 


P042Q F09D 






1215 P0421 1*800 


STQ 


OATA1 


P0422 FEF9 






1216 PQ423 C800 


LOA 


STATUS 


P0424 F067 






1217 P0425 6800 


STA 


0ATA2 


P0426 FEF6 






1218 P0427 0C30 


ENQ 


$30 


1219 P0428 0A20 


ENA 


$20 


1220 P0429 5800 


RTJ 


STOP 


P042A FEOE 






1221 P0428 1CD5 


JMP* 


fCHKTRK) 


1222 P042C 0000 CHKSEC NUH 





1223 P042O C8FE 


LOA* 


CHKSEC 


1224 P042E 6802 


STA* 


CHKTRK 


1225 PQ42F 5800 


RTJ 


ADRINP 


P043Q F05C 






1226 PQ431 6800 


STA 


DATA3 


P0432 FEEB 






1227 PQ433 C800 


LOA 


OBUFFER 


P0434 0490 






1228 P0435 A081 


ANO- 


HOOFF 


1229 P0436 9000 


SUB 


sN$9F 


P0437 009F 






1230 P0438 0111 


SAN 


SEC-*-l 


1231 P0439 1802 


JMP* 


TRK1 


1232 PQ43A C800 SEC 


LOA 


OBUFFER 


P043B 0489 






1233 P043C 0901 


INA 


1 


1234 P043D 1809 


JMP* 


TRK2 


1235 P043E 0000 CONV NUH 





1236 P043F 6821 


STA* 


CONV1 


1237 P0440 4821 


STQ* 


CONV? 


1238 P0441 CC1F C0NV6 LOA* 


ICONV1) 


1239 P0442 A081 


ANO- 


HOOFF 


1240 P0443 9000 


sua 


=N$A0 


P0444 OOAO 






1241 P0445 0133 


SAM 


C0NV3-*-l 


1242 P0446 CC1A 


LOA* 


<C0NV1) 


1243 P0447 B072 


EOR- 


CONST+7 


1244 P0448 6C18 


STA* 


tCONVl) 


1245 P0449 CC17 C0NV3 LOA* 


(CONV1) 


1246 P044A A082 


ANO- 


HFFOO 


1247 P0448 0FC8 


ALS 


8 


1248 P044C E300 


LOO 


UNITSECT 


P044O FC40 







COMPARE WITH ACTUAL AODRESS 

ERROR IF NOT EQUAL 
EXIT IF OKAY 
SET ALARM FLAG FOR NO COMPARISON 



EXIT 
FORM COMMON RETURN ADDRESS 
CURRENT ADDRESS 

OOFF 
JUMP IF NOT TRACK 9, SECTOR F 

FORM EXPECTED AODRESS 

CONVERT LOCATIONS TO DISK AOORS. 

OOFF 
9F * 1 

OKAY 

CLEAR BIT 7 

FFOO 



01210 

€1211 
01212 
01213 

01214 

01215 

01216 

01217 

01218 
01219 
01220 

01221 
01222 
01223 
01224 
01225 

01226 

01227 

01228 
01229 

01230 
01231 
01232 

01233 
01234 
01235 
01236 
01237 
01238 
01239 
01240 

01241 
01242 
01243 
01244 
01245 
01246 
01247 
01248 
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OATFI 01/OW75 



12*9 PQM»E 


0165 




SQP 


CONV*-*-i 


1250 PQkkF 


90811 




SUB 


=N203 


P0*50 


OOCB 








1251 P0*51 


0138 




SAM 


CONV7-*-i 


1252 P0*»52 


C087 




LOA- 


H7FFF 


12*3 PO*53 


1805 




JMP» 


C0NV5 


125* P0<f54 


099B 


CONV«f 


INA 


-100 


1255 P0*55 


013* 




SAM 


C0NV7-*-i 


1256 PO*56 


COOO 




LOA 


=N$3FFF 


P0*57 


3FFF 








1257 P0*58 


AC0 8 


C0NV5 


AND* 


CCONV1) 


1258 P0*59 


6C07 




STA» 


(CONV1) 


1259 P0*5A 


0806 


C0NV7 


RftO* 


CONV1 


1260 P0458 


C806 




LOA* 


C0NV2 


1261 P0*»5C 


B80* 




EOR* 


CONVi 


1262 PO*50 


0101 




SAZ 


1 


1263 P0«i5E 


18E2 




JMP* 


C0NV6 


12** -P**5F 


1C0E 




JMP* 


fCONV) 


1265 Pdi*6Q 


0900 


C0NV1 


NUM 





1266 P0*61 


0000 


C0NV2 


NUM 






853 
85* 



HASK OFF SIGN BIT 



STORE LEGAL AODRESS 



EXIT 



012*9 
01250 

01251 
01252 
01253 
0125* 
01255 
01256 

01257 
01294 
01299 

01260 
01261 
01262 
01263 
0126V 
01265 
01266 
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1268 


P0462 
P0463 


COOO 
FAFF 


SEC1 


LOA 


=N-$500 


1269 


P0464 
P0465 


6800 
FC5F 




STA 


SECTPASS 


1270 


P0466 
P0467 


5800 
FLC2 


SEC 10 


RTJ 


CLRCON 


1271 


P0<f68 
P0469 


5800 
F023 




RTJ 


AORINP 


1272 


P046A 
P046B 


5800 
F01B 




RTJ 


INPUT 


1273 


P046C 
P046D 


6800 
FEAE 




STA 


DATA1 


1274 


P046E 
P046F 


E800 
FEB9 » 




LOU 


IN A OR 


1275 


PQ470 
P0471 


4800 
FEAB 




STQ 


OATA2 


1276 


P0472 


A06B 




AND- 


CONST 


1277 


P0473 


0114 




SAN 


SEClA-*-l 


1278 


P0474 


0C06 




ENQ 


6 


1279 


P0475 


0A10 




ENA 


$10 


1280 


PQ476 
P0477 


5800 
FE91 




RTJ 


STOP 


1281 


P0478 


0A08 


SEC14 


ENA 


8 


1282 


PQ479 
P047A 


A800 
FOll 




AND 


STATUS 


1283 


P047B 


0114 




SAN 


SEClB-*-l 


1284 


PQ47C 


0C07 




ENQ 


7 


1285 


P0470 


0A10 




ENA 


.210 


1286 


P047E 
PQ47F 


5800 
FE89 




RTJ 


STOP 


1287 


P0480 
P0481 


C800 
FDOA 


SEC1B 


LOA 


STATUS 


1288 


P0482 
P0483 


AOOO 
FF7F 




AND 


=N$FF7F 


1289 


P0484 
P0485 


B000 
0009 




EOR 


=N9 EXPECTED 


1290 


P0486 


0104 




SAZ 


SEClE-*-l 


1291 


P0487 


0A10 




ENA 


$10 


1292 


P0488 


0C1F 




ENQ 


$1F 


1293 


P0489 
P048A 


5800 
FE7E 




RTJ 


STOP 


1294 


P0488 
P048C 


5800 
FBOC 


SECIC 


RTJ 


FINSECT 


1295 


P048O 


1808 




JMP» 


SEC1C 


1296 


P048E 


18D7 




JMP* 


SEC1C 


1297 


P048F 


1802 




JMP* 


SEC1 



NUMBFR OF PASSES FOR SECTION 

CLEAR CONTROLLER ANO CONNECT 

ADDRESS REGISTER STATUS 
INPUT STATUS 



IS READY BIT SET 

ERROR NUMBER, READY NOT SET 

CHECK FOR ON CYLINDER 

ERROR NUMBFR, ON CYLINOER NOT SE 



IGNORE PROTECT BIT 
STATUS = ON CYLINDER, READY 



REPEAT CONDITIONS 
NEXT ITERATIONS 
REPEAT SECTION 



01268 

01269 

01270 

01271 

01272 

01273 

01274 

01275 

01276 
01277 
01278 
01279 
01280 

01281 
01282 

01283 
01284 
01285 
01286 

01287 

01288 

01269 

01290 
01291 
01292 
01293 

01294 

01295 
01296 
01297 
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1299 


P0<»90 


5800 




P0i»91 


FECC 


1300 


P0*»92 


COOO 




P0*»93 


08C«» 


1301 


P0if9i» 


EOOO 




P0^95 


0924 


1302 


PD496 


5800 




P0*»97 


FFA6 


1303 


PQ498 


5800 




P0t»99 


FE90 


130 1* 


P0*i9A 


5800 




P049B 


FE99 


1305 


P049C 


5800 




P049D 


FE81 


1306 


PQ<»9£ 


5800 




P049F 


FBC9 


1307 


P0*»AQ 


18F7 


1308 


P04A1 


18F6 


1309 


P0*fA2 


18ED 



SEC2 



sec?, a 



PAGE 


hO 


RTJ 


SECGEN 


LOA 


=XOBUFFER 


LOQ 


=XOBUFFER+96 


RTJ 


CONV 


RTJ 


CLRCON 


RTJ 


ADDRESS 


RTJ 


MOVEADR 


RTJ 


FINSECT 


JMP* 
JMP* 
JMP* 


SEC2A 
SEC2A 
SEC2 



DATEI 01/UW75 



SET ITERATIONS, GENERATE NUMBERS 

CONVERT TO LEGAL AOORESS 
CLR. CONTROLLER ANC CONNECT 

MOVE THE NEXT ADDRESS UP 



REPEAT CONDITIONS 
NEXT ITERATION 
REPEAT SECTION 



01299 

01300 

01301 

01302 

01303 

01304 

01305 

01306 

01307 
01308 
01309 
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1311 


P04A3 


0C9F 


1312 


P04A4 


4800 




P04A5 


FC1F 


1313 


P04A6 


coon 




P04A7 


0924 P 


1314 


P04A8 


6800 




P04A9 


041A 


1315 


P04AA 


0961 


1316 


P04AB 


6800 




P04AC 


0478 


1317 


P04A0 


COOO 




P04AE 


0924 P 


1318 


P04AF 


6800 




P0480 


FD61 


1319 


P04B1 


0C60 


1320 


P0482 


OAOO 


1321 


P04B3 


6800 




P04B4 


FCC4 


1322 


P04B5 


5800 




P04B6 


FE80 


1323 


P04B7 


5800 




P04B8 


FE71 


1324 


P04B9 


5800 




P04BA 


FE7A 


1325 


P04BB 


5800 




P04BC 


FEB5 


1326 


P04BD 


5800 




P04BE 


FF60 


1327 


P04BF 


5800 




P04C0 


FE97 


1328 


P04C1 


0A10 


1329 


P04C2 


5406 


1330 


P04C3 


18F3 


1331 


P04C4 


582A 


1332 


P04C5 


0A10 


1333 


P04C6 


5406 


1331* 


P04C7 


18FC 


1335 


P04C8 


5800 




P04C9 


FE60 


1336 


P04CA 


5800 




P04CB 


FEC3 


4.337 


P04CC 


5800 




P04CD 


FF33 


1338 


P04CE 


0A10 


1339 


P04CF 


5t|06 


1340 


P04D0 


18 F7 


1341 


P04D1 


C800 




P0402 


FCA6 


1342 


P04D3 


0118 


1343 


P04D4 


5800 




P04D5 


FE54 


1344 


P04D6 


5800 




P0407 


FE5D 



SEC3 



T4 



T8 



SEC3A 



SEC3B 



Sb:C3Q 



SEC30 



SEC3E" 



PAGE 


*»1 


ENQ 
STQ 


-96 
SECTPASS 


IDA 


=X0BUFFER+96 


STA 


OBUFFER-1 


TNA 
STA 


97 
IBUFFER-1 


LOA 


=XIBUFFER-i 


STA 


T3 + 1 


ENQ 
ENA 
STA 


96 



ALFLAG 


RTJ 


GENSEC 


RTJ 


CLRCON 


RTJ 


ADDRESS 


RTJ 


OUTBUF 


RTJ 


CHKSEC 


RTJ 


RETSTAT 


ENA 

RTJ- 

JMP* 

RTJ* 

ENA 

RTJ- 

JMP* 

RTJ 


UIO 

(JUMP) 

SEC3B 

SEC 3RD 

$10 

(JUMP) 

SEC3C 

CLRCON 


RTJ 


CHKWORD 


RTJ 


CHKTRK 


ENA 
RTJ- 

JMP* 
LDA 


$10 
(JUMP) 
SEC3D 
ALFLAG 


SAN 
RTJ 


SEC3F-*-i 
CLRCON 


RTJ 


ADDRESS 



OATEl 01/04/75 



WRITE, READ AND COMPARE 



************ BIAS ************** 



******** BIAS ********** 

CLEAR ALARM FLAG 

CLEAR CONTROLLER ANO CONNECT 

WRITE ONE SECTOR 

CHECK ADDRESS WHEN NOT BUSY 

CHECK ALARM CONDITIONS 

REPEAT CONDITIONS 



REPEAT CONDITIONS 

CLEAR CONTROLLER AND CONNECT 

CHECKWORO CHECK 



REPEAT CONDITIONS 
CHECK ALARM CONDITIONS 



01311 
01312 

01313 

01314 

01315 
01316 

01317 

01318 

01319 
01320 
01321 

01322 

01323 

01324 

01325 

01326 

01327 

01328 
01329 
01330 
01331 
01332 
01333 
01334 
01335 

01336 

01337 

01338 
01339 
01340 
01341 

01342 
01343 

0134i» 
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DATEI 01/04/75 



13*5 P04O8 5800 


RTJ 


COMBUF 


PQ4D9 FE9F 






1346 P04DA 5800 


RTJ 


CHKSEC 


P04O8 FF50 






1347 P04DC 0A10 


ENA 


$10 


~±348 PQ4DD 5406- 


RTJ- 


<JUMP» 


1349 P04DE 18F2 


JMP» 


SEC3E 


1350 P04DF C800 SEC3F LOA 


ALFLAG 


P04E& FG98 


-•■■---•■ 




1351 P04E1 0112 


SAN 


2 


1352 PQ4E2 5800 


RTJ 


COMPARE 


,... P84E3 FEB5 


-■- ■■■•■— •-. 




1353 P04E4 5800 


RTJ 


FINSECT 


P04E5 FB83 






— 1-35% P04E6 1803 


JHP* 


SEC3G 


1355 P04E7 18C9 


JHP» 


SEC3A 


1356 P04E8 18BA 


JMP» 


SEC3 


1357 P84E9 084V -SEC3G CLR 


• - A 


1358 P04EA 6800 


STA 


ALFLAG 


P04EB FC80 






-1359 P04EC -5402- 


.. R T J» 


SEC3R0 


1360 P04EO 18F1 


JMP» 


SEC3F 


1362 P04EE 0000 SEC3RD NUM 





1363 P04EF 5800 


RTJ 


CLRCON 


- P04FO FE39- 






1364 P04F1 5800 


RTJ 


.ADDRESS 


P04FZ FE42 






1365 PQ4F3 -5*00 


RTJ 


INBUF 


P04F4 F019 






1366 P04F5 5800 


RTJ 


CHKSEC 


.... i.-.,. P04F6FF35 




...... 


1367 P04F7 5800 


RTJ 


RETSTAT 


P04F8 FE5F 






1368 P04F9 IGF4 


JMP» 


(SEC3R0) 



COMPARE BUFFER 



REPEAT CONDITION 
CHECK ALARM FLAG 



COMPARE INPUT BUFFER WITH OUTPUT BUFFER 



REPEAT CONDITION 
NEXT ITERATION 
REPEAT SECTION 



CLEAR CONTROLLER AND CONNECT 

READ ONE SECTOR 

CHECK AOORESS WHEN NOT BUSY 

CHECK ALARM CONDITIONS 



01345 

41346 

01347 
01348 
01349 
01350 

01351 
01352 

01353 

-01354 
01355 
01356 
01357 
01358 

01359 
01360 

01362 
01363 

01364 

01365 

01366 

01367 

01368 
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1370 PQ4FA 0C9F 


3EC4 


ENQ 


-9* 


1371 


* 






1372 P04F8 4800 




STQ 


SECTPASS 


P04FC F8C8 








1373 P04FD C8A9 




LOA* 


T4+1 


1374 P04FE 6800 




STA 


OBUFFER-1 


P04FF 03C4 








1375 P0500 0961 




INA 


97 


1376 P0501 6800 




STA 


IBUFFER-1 


P0502 0422 








1377 P0503 C800 




LOA 


T8+1 


P0504 FFA9 








1378 P0505 6800 




STA 


T3+1 


P0506 FOOB 








1379 P0507 0C06 


SEC4Z 


ENQ 


6 


1380 P0508 5800 




RTJ 


REQUEST 


P0509 FBQD 








1381 P050A 0C60 


SEC40 


ENQ 


96 


1382 P050B OAOO 




ENA 





1383 P050C 6800 




STA 


ALFLAG 


P050D FC6B 








1384 P050E 5800 




RTJ 


GENSEC 


P050F FE57 








1385-PQ510 5800 


SEC*»A . 


RTJ 


CLRCON 


P0511 FE18 








1386.P0512 5800 




RTJ 


WRITE 


PQ513 FDB6 








1387 P0514 5800 




RTJ 


CHKSFC 


P0515 FF16 








1388 P0516 0A10 




ENA 


$10 


1389 PQ517 5406 




RTJ- 


CJUMP) 


1390 P0518 18F7 




JHP* 


SEC4A 


1391 P0519 5800 


SEC4R 


RTJ 


CLRCON 


P051A FEOF 








1392 P051B 5800 




RTJ 


REAO 


P051C FD01 








1393 P051D 5800 




RTJ 


CHKSEC 


P051E FFOO 








1394 P051F 0A10 




ENA 


$10 


1395 P0520 5406 




RTJ- 


(JUMP) 


1396 P0521 18F7 




JMP* 


SEC4B 


1397 P0522 5800 


SEC4C 


RTJ 


CLRCON 


P0523 FE06 








1398 P0524 5800 




RTJ 


CHTNTP 


P0525 FEA1 








1399 P0526 5800 




RTJ 


CHKTRK 


P0527 FE09 








1400 P0528 0A10 




ENA 


$10 


1401 P0529 5406 




RTJ- 


(JUMP) 


1402 P052A 18F7 




JMP* 


SEC4C 


1403 P052B C800 


SEC^E 


LDA 


ALFLAG 


P052C FC4C 








1404 P052O 011D 




SAN 


SEC«*F-* + i 



DATE* 01/04/75 



WRITE, REAO,AND COMPARE 
UNDER INTERRUPT CONTROL 



CLEAR ALARM FLAG 

CLEAR CONTROLLER AND CONNECT 
WRITE UNDER INTP. CONTROL 



REPEAT CONDITIONS 

CLEAR CONTROLLER AND CONNECT 

REAO UNDER INTP CONTROL 



REPEAT CONOTTIONS 

CLEAR CONTROLLER AND CONNECT 



REPEAT CONDITIONS 
CHECK FOR ALARM 

YES ALARM-NO DATA TO DISPLAY 



01370 
01371 
01372 

01373 
01374 

01375 
01376 

01377 

01378 

01379 
01380 

01381 
01382 
01383 

01384 

01385 

01386 

01387 

01388 
01389 
01390 
01391 

01392 

01393 

01394 
01395 
01396 
01397 

01393 

01399 

01400 
01401" 
01402 
01403 

01404 
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1405 


P052E 


5800 




P052F 


FOFA 


1406 


P053Q 


5800 




P0531 


F013 


1407 


P0532 


5800 




P0533 


FEA9 


1408 


P0534 


5800 




PD535 


FEF6 


1409 


P0536 


0A10 


1410 


P0537 


5406 


1411 


PQ533 


18F2 


1412 


P0539 


C800 




P053A 


FC3E 


1413 


P053B 


0112 


1414 


P0 53C 


5800 




P053D 


FE5B 


11*15 


P053E 


5800 




P053F 


FB29 


1416 


P0540 


18F8 


1417 


PQ541 


18C8 


141* 


P0542 


18B7 



SEC4^ 



PARE 


44 


RTJ 


CLRCON 


RTJ 


AORINTP 


RTJ 


C9INTP 


PTJ 


CHKSEC 


ENA 
RTJ- 

JMP» 
LOA 


mo 

(JUMP) 

SEC4E 

ALFLAG 


SAN 
RTJ 


2 
COMPARE 


RTJ 


FINSECT 


JMP» 
JMP* 
JMP* 


SEC4F 
SEC4D 
SEC4 



DATE* 01/04/75 



ADDRESS 



CHECK ALARM FLAG 
COMPARE INPUT BUFFER WITH OUTPUT BUFFER 



REPEAT CONDITIONS 
NEXT ITERATION 
REPEAT SECTION 



01405 

01406 

01407 

01408 

01409 
01410 
01411 
01412 

01413 
01414 

01415 

01416 
01417 
01418 
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1420 P0543 QC9F 


SEC5 


ENQ 


-96 


1*21 P0544 WOO 




STQ 


SECTPASS 


P0545 FB7F 








1*22 PQ5*6 COOO 


SEC5A 


LDA 


=N$FO 


P05*7 OOFO 








1423 PO 5 *8 6800. 


— . . 


STA 


OBUFFER 


P05*9 0378 








1*2* P05*A OCO* 




ENQ 


4 


1425 P054B 5800 




RTJ 


REQUEST 


P054C FB7A 








1426 PO 5*0 5800 




RTJ 


CLRCON 


- P054E FDOB 








1427 P054F 5800 


SEC5F 


RTJ 


SELECT 


P0550 FB8* 








-■-- 142ft -P0S51 1802 


... .. . .. 


JMP* 


SEC5B 


1*29 P0552 1812 




JMP* 


SEC5D 


1430 P0553 C800 


SEC5B 


LOA 


OBUFFER 


,, P0S54 0370 


,. ..... . .. 






1431 P0555 E800 




LDQ 


EQUIPADR 


P0556 FDCA 








1432 -PO 557-5604 


. : . 


RTJ 


OUTPUT 


P0558 FC66 








1433 P0559 5800 




RTJ 


NOINTP 


PQ55A.-FCD9 


......... . ........ 




.. 


1434 P055B 0158 




SQN 


SEC5D-»-l 


1435 P055C E800 




LDQ 


OBUFFER 


P053D 0367 








1436 P055E 4800 




STQ 


DATA1 


P055F FOBC 








..... 1*37 P0560-OC16 




ENQ . 


J16 


1438 


* 






1*39 


* 






- 1440 PO 561 5600 




RTJ 


STOP 


P0562 FDA6 








14*1 P0563 1811 




JMP* 


SEC5C 


1442 Pfl.564.5B0Q 


. SEC5D 


RTJ 


IECHK 


P0565 FD12 








1*43 P0566 C8Q0 




LDA 


INTSTAT 


P0567FB7C • 









14** P0568 6800 




STA 


DATA 2 


P0569 F0B3 








14*5. P056A E8Q0 




. LDQ 


OBUFFER 


P056B 0359 








1446 P056C *800 




STQ 


0ATA1 


- P056O FOAE 








1**7 P056E A076 




AND- 


CONST+il 


1**8 P056F Oil* 




SAN 


SEC5C-*-l 


1*49 P0570 0A1O 




ENA 


S10 


1*50 P0571 0C17 




ENQ 


$17 


1*51 


* 






1*52 - 


* . 






1*53 P0572 5800 




RTJ 


STOP 


P0573 FD95 









OATEl 01/0*/75 



ILLEGAL ADDRESS 



REQUEST ALARM INTP. 



SELECT INTERRUPT 



INTERRUPT OCCURRED 
ILLEGAL ADORESS 



FORCE ALARM INTERRUPT 



NO ALARM INTERRUPT OCCURRED 
WHEN ATTEMPTING TO FORCE ADDRESS 
ERROR 



CHECK AODRESS ERROR BIT 



ERROR NUMBER, AN ADDRESS ERROR 
HAS FORCED BUT THE STATUS BIT 
WAS NOT SET. 



01420 
01421 

01*22 

01*23 

01*2* 
01*25 

01*26 

01*27 

01*28 
01*29 
01*30 

01*31 

01*32 

01*33 

01*3* 
01*35 

01*36 

01*37 
01*38 
01*39 
01**0 

014*1 
01**2 

01**3 

01*44 

01**5 

01**6 

01**7 
01**8 
014*9 
01*50 
0.1*51 
01*52 
01*53 
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1454 PQ574 


0A10 


SEC5C 


ENA 


$10 


1455 P0575 


5406 




RTJ- 


<JUMP) 


1456 P0576 


18D8 




JMP» 


SEC5F 


1457 PQ577 


5800 


SEC5T 


RTJ 


SELECT 


P0578 


FB5C 








1458 P0579 


1802 




J MP* 


SEC5U 


11*59 P057A 


1812 




JMP» 


SEC5V 


1460 P057B 


C800 


SEC5U 


LDA 


OBUFFER 


P057C 


0348 








1461 P0570 


E800 




LDQ 


EQCHKWD 


P057E 


F0A6 








1462 P057F 


5800 




RTJ 


OUTPUT 


P0580 


FC3E 








1463 P0581 


5800 




RTJ 


NOINTP 


P0582 


FCB1 








1464 P0583 


0158 




SQN 


SEC5V-*-l 


1465 P0584 


E800 




LOQ 


OBUFFER 


P0585 


033F 








1466 P0586 


4800 




STQ 


OATA1 


P0587 


FD94 








1467 P0588 


0C18 




ENQ 


sia 


1468 




* 






1469 




* 






1470 P0589 


5800 




RTJ 


STOP 


P058A 


FD7E 








1471 P058B 


1811 




JMP» 


SEC5W 


1472 P058C 


5800 


SEC5V 


RTJ 


IECHK 


P0580 


FCEA 








1473 P058E 


C800 




LOA 


INTSTAT 


P058F 


FB54 








1474 P0590 


6800 




STA 


0ATA2 


P0591 


FD8B 








1475 PQ592 


E800 




LOQ 


OBUFFER 


P0593 


0331 








1476 P0594 


4800 




STQ 


DATA! 


P0595 


F086 








1477 P0596 


A076 




AND- 


CONST+11 


1478 P0597 


0114 




SAN 


SEC5W-*-l 


1479 P0598 


0A10 




ENA 


$10 


1480 P0599 


0C17 




ENQ 


$17 


1481 P059A 


5800 




RTJ 


STOP 


P059B 


FD60 








1482 P059C 


0A10 


SEC5W 


ENA 


$10 


1483 P0590 


5406 




RTJ- 


CJUMP) 


1484 P059E 


1808 




JMP» 


SEC5T 


1485 P059F 


C8A7 




LDA* 


SEC5A*1 


1486 P05A0 


E082 




LDQ- 


HFFOO 


1487 PQ5A1 


0874 




EAQ 


A 


1488 P05A2 


0102 




SAZ 


2 


1489 P05A3 


48A3 




STQ» 


SEC5A+1 


1498 P85A4 


18A1 




JMP» 


SEC5A 


1491 P05A5 


C07E 




LOA- 


H00F0 


1492 P05A6 


68A0 




STA» 


SEC5A+1 



OATEI 01/04/75 



REPEAT CONDITIONS 
INTERRUPT ON ALARM 



INTERRUPT OCCURRED 
ILLEGAL AODPESS 



CHECKWORD CHECK 
INTERRUPT STATUS ZERO f NO INTERRUPT OCCU 



ERRCODE. NO ALARM INTERRUPT 
WHEN INITIATING CHECKWORD CHECK 
WITH ILLEGAL ADDRESS 



CHECK WHETHER CORRECT INTERRUPT OCCUR 



CHECK ADORESS ERROR BIT 



ADDRESS ERROR STATUS NOT SET 



REPEAT CONDITIONS 



FORCE ALARM WITH ILLEGAL CYLINDER 
OOFO 



01454 
01455 
01456 
01457 

01458 
01459 
01460 

01461 

01462 

01463 

01464 
01465 

01466 

01467 
01468 
01469 
01470 

01471 
01472 

01473 

01474 

01475 

01476 

01477 
01478 
01479 
01480 
01481 

01482 
01483 
01484 
01485 
01486 
01487 
01488 
01489 
01490 
01491 
01492 
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DATEI 01/04/75 



1493 


P05A7 


C800 




P05A8 


FAE5 


1494 


P0SA9 


0123 


1495 


P05AA 


COOO 




P05AQ 


CA9F 


1496 


P05AC 


1803 


1497 


P05AD 


COOO 




P05AE 


639F 


1498 


P05AF 


6800 




P05BO 


0314 


1499 


P05B1 


A082 


1500 


P05B2 


0822 


1501 


P05B3 


COOO 




P0 5B4 


0925 P 


1502 


P05B5 


6800 




P05B6 


0300 


1503 


P0 5B7 


0961 


1504 


P05B8 


6800 




P05B9 


0368 


1505 


P05BA 


C800 




P05B8 


FA03 


1506 


P05BC 


0FC8 


1507 


P05BD 


A082 


1508 


POSSE 


6820 


1509 


P058F 


0874 


1510 


P05C0 


0101 


1511 


P05C1 


1829 


1512 


P05C2 


5800 




P05C3 


F071 


1513- 


P05C4 


0C04 


1514 


P05C5 


5800 




P05C6 


FBOO 


1515 


P05C7 


5800 




P05C8 


FBOC 


1516 


P05C9 


1802 


1517 


P05CA 


1800 


1518 


P05CB 


5800 




P05CC 


F0A5 


1519 


P05CD 


5800 




P05CE 


FC65 


1520 


P05CF 


E800 




P05O0 


02F4 


1521 


P0501 


4800 




P05D2 


F049 


1522 


P05D3 


0C20 


1523 






1524 


H05D4 


5800 




P05D5 


FD33 


1525 


P05D6 


1811 


1526 


P0507 


5800 




P05D8 


FC9F 


1527 


P05D9 


C80Q 




P05DA 


FB09 



SEC5G 



SEC5H 



T5 



SEC5L 



SFC5X 



SEC 51 



LDA 

SAP 
LDA 

JMP» 
LOA 

STA 

AND- 

TRA 

LOA 

STA 

INA 
STA 

LOA 

ALS 

ANO- 

STA» 

EAQ 

SAZ 

JMP* 

RTJ 

ENQ 
RTJ 

RTJ 

JMP* 
JMP* 
RTJ 

RTJ 

LOQ 

sTa 

ENQ 

RTJ 

JMP* 
RTJ 

LOA 



UNITSECT 

SEC5G-*-i 
=N$CA9F 

SEC5H 
=N$639F 

OBUFFER 

HFFOO 

Q 

=X08UFFER+97 

OBUFFER-i 

97 

IBUFFER-1 

RANGE 

8 

HFFOO 

SEC5MU 

A 

1 

SEC5H 

AOORESS 



REQUEST 

SELECT 

SEC5X 
SEC5I 
OUTBUF 

NOINTP 

OBUFFER 

0ATA1 

$20 

STOP 

SEC5J 
IECHK 

INTSTAT 



854 LAST AOORESS 
853 LAST ADDRESS 

FFOO 

********* BIAS 



*************** 



ADJUST LWA OF OUTPUT BUFFER 



REQUEST ALARH INTP. 



WRITE 



ALARM INTP 010 NOT OCCUR WHEN 
WRITING OF THE END OF PACK. 



CHECK FOR CORRECT INTERRUPT 



01493 

01494 
01495 

01496 
01497 

01498 

01499 
01500 
01501 

01502 

01503 
01504 

01505 

01506 
01507 
01508 
01509 
01510 
01511 
01512 

01513 
01514 

01515 

01516 
01517 
01518 

01519 

01520 

01521 

01522 

01523 
01524 

01525 
01526 

01527 
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1528 


P05DB 6800 




P050C FO*0 


1529 


P650D A076 


1530 




1531 


P05DE 0118 


1532 


-P05DF G800 




P05EO 02E* 


1533 


P05E1 6800 





P05E2 FD39 - 


153* 


P05E3 0A10 


1535 


P0 5E* 0C19 


1536 


PQ5E5-5600 




P05E6 F022 


1537 


P05E7 0A10 


1538 


POSES' 5*fl6 


1539 


P05E9 1808 


15<»0 


P05EA COOO 


.... . .-... 


-P05E8 008F P 


15*1 


P05EC 6800 




P05ED 0207 


15*2 


P05EE 5800 




P05EF F0*5 


15*3 


P05FQ 5800 


— ,__ 


P05F1 ~FQ«0 


15** 


P05F2 5800 




P05F3 FO*l 


15*5 


P05F* 0800 




P05F5 0200 


15*6 


P05F6 E800 




P05F7 FD2C 


15*7 


P05F8 COOO 




P05F9 08C3 P 


15*8 


P05FA 5800 




P05FB FBFC 


15*9 


P05FC 5800 




P05FO F889 


1550 


P05FE 6800 




P05FF FD1C 


1551 


PQ600 E800 




P0601 F027 


1552 


P0602 *800 




P0603 F019 


1553 


P060* A071 


155* 


P0605 Oil* 


1555 


P060 6 OA10 


1556 


P0607 0C25 


1557 


P0608 5800 


.■■:■- 


P0609 FCFF 


1558 


P060A 0A10 


1559 


P0603 5*06 


-156th 


P06OC 18D0 


1561 


P060D C800 




P060E 02B6 



SEC5J 



SEC5H 



T7 



SEC5N 



PAGE 


*8 


STA 


0ATA2 


ANO- 


CONST+11 


SAN 
LDA 


SEC5J-»-l 
OBUFFER 


STA 


DATA1 


ENA 
ENQ 
RTJ 


$10 
$19 
STOP 


ENA 

- RTJ- 

JHP* 

LDA 


$10 
CJUMP» 

SEC5L 
=XRANGE 


STA 


OBUFFER 


RTJ 


ADDRESS 


RTJ 


OUTBUF 


RTJ 


AOORESS 


RAO 


OBUFFER+1 


LOQ 


EQCOMP 


LDA 


=XOBUFFER-l 


RTJ 


IOBUFFER 


RTJ 


INPUT 


STA 


DATA1 


LOQ 


INADR 


STQ 


0ATA2 


ANO- 

SAN 

ENA 

ENQ 

RTJ 


CONST+6 

SEC5N-*-l 

$10 

$25 

STOP 


ENA 

RTJ- 

JMP* 

LDA 


$10 
CJUMP) 

SEC5M 
OBUFFER 



OATEl 01/0*/75 



CHECK WHETHER ADDRESS ERROR STATUS 
HAS SET. 



ERROR NUMBER 



REPEAT CONDITIONS 



WRITE A SECTOR 



CHANGE BUFFER AREA 



00 COMPARE FUNCTION 
GET STATUS 



CHECK NO COMPARE STATUS 
OKAY IF SET 

NO COMPARE STATUS NOT SET 



REPEAT CONDITIONS 



01528 

01529 
01530 
01531 
01532 

01533 

0153* 
01535 
01536 

01537 
01536 
01539 
015*0 

015*1 

015*2 

015*3 

015** 

015*5 

015*6 

015*7 

015*8 

015*9 

01550 

01551 

01552 

01553 
0155* 
01555 
01556 
01557 

01558 
01559 
01560 
01561 
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DATE! 


1562 PQ60F 099E 


INA 


-$61 




1563 P0610 6900 


STA 


OBUFFER 




._PO641~02B3 - .- - 


. ... ; — 


..-., .- 


.. :_..' ..... ... 


1564 P0612 0A00 


ENA 







1565 P0613 6800 


STA 


ALFLAG 




- P0614 FB64- 




. 





1566 P0615 5800 SEC5NA 


RTJ 


ADDRESS 




P0616 FOIE 








-1567 M617 5800 - 


RTJ 


OUTBUF 


. 


P0618 F059 








1568 P0619 5800 


RTJ 


RETSTAT 




P061A F03O ..... 


...:_.. 




... 


1569 P061B 0A10 


ENA 


$10 




1570 P061C 5406 


RTJ- 


CJUMP) 




~ 1571 P061D 18F7 


JMP» 


SEC5NA 


..:_... 


1572 P061E 5800 SEC5NB 


RTJ 


ADDRESS 




P061F FD15 








...1573-P0620 58X10- 


RTJ 


... COMBUF- 




P0621 F057 








1574 Pq622 QA10 


ENA 


$10 




-1575 P0623 5406-- 


RTJ-< 


IJUMP) 




1576 P0624 18F9 


JMP» 


SEC5NB 




1577 P0625 5800 SEC5NC 


RTJ 


ADORESS 




... - -P0626 FOQE. 


, 


.._ 


.. _. .. .. ..* . 


1578 PQ627 C800 


LDA 


T8+1 




P0628 FE85 








1579- P0629 6800 - -~ 


.STA 


■jT3*1- 


_ ._■. 


P062A F8E7 








1580 P062B C888 


LDA» 


T5+1 




-1581 -PQ62C -0961 


INA 


97 




1582 P062O 6800 


STA 


IBUFFER-1 




P062E 02F6 








- 1583 P062F 5800 


RTJ 


IN8UF 




P0630 FBOO 








1584 P0631 5800 


RTJ 


RETSTAT 




- - PQ632 FD25 








1585 P0633 0A10 


ENA 


$10 




1586 PQ634 5406 


RTJ- 


CJUMP) 




-1567 P0635 18EF 


- JMP» 


SEC5NC 




1588 P0636 C000 SEC5NN 


LOA 


sNSA9E 




P0637 0A9E 








.1589 J?063a.-68JIO „ 


. STA 


COMl+i 




P0639 F078 








1590 P063A C800 


LOA 


ALFLAG 




P063B FB3D 








1591 P063C 0112 


SAN 


2 




1592 P063O 5800 


RTJ 


COMPARE 




P063E FD5A 








1593 P063F 0800 


RAO 


COM1+1 




P0640 FD74 








1594 P0641 5800 


RTJ 


FINSECT 




P0642 FA26 








1595 P0643 18E1 


JMP» 


SEC5NC 





XX9F, LAST SECTOR OF CYLINDER 



WRITE INTO NEXT CYLINDER 
CHECK ALARM CONDITIONS 

- REPEAT CONDITIONS 
COMPARE BUFFER 

REPEAT CONDITIONS 



REAO INTO NEXT CYLINDER 
CHECK ALARM CONDITIONS 

REPEAT CONDITIONS 



01562 
01563 

01564 
01565 



REPEAT CONDITIONS 



01566 

01567 

01568 

01569 
01570 
01671 
01572 

01573 

01574 
01575 
01576 
01577 

01578 

01579 

01580 
01581 
01582 

01583 

01584 

01585 
01586 
01587 
01588 

01589 

01590 

01591 
01592 

01593 

01594 

01595 



60220800 F 



PAGE 49 



DP1008 PAGE 50 DATEI 01/0*»/75 

1596 P06<»«» 1803 JMP» SEC5R 01596 

1597 P0645 1800 JMP SEC5 REPEAT SECTION 01597 
P06«»6 FEFG 

1598 P06«»7 1800 SEC5R JMP SEC5A NEXT ITERATION 01598 
PQ6*»8 FEFO 
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OATEI 01/04/75 



1600 P0649 0000 


INCREMEN 


NUH 





1601 P064A 0C00 




ENQ . 





1602 P064B C82B 




LDA* 


CURAD 


1603 PQ64C 0FE8 




LLS 


8 


1604 P064D 4828 




STQ» 


SAVE2 


1605 P064E 0FC8 




ALS 


8 


1606 P064F 6825 




STA* 


SAVE1 


1607 P0650 C800 




LDA 


BUFFLAG 


P0651 0270 








1608 P0652 0101 




SAZ 


W96-*-l 


1609 P0653 1818 




JMP» 


H1536 


1610 P0654 C820 


W96 


LDA* 


SAVE1 


1611 P0655 9000 




SUB 


=N$9F 


P0656 009F 








1612 P0657 0102 




SAZ 


CHKHIGH-*-l 


1613 P0658 081C 




RAO* 


SAVE1 


1614 P0659 180B 




JMP* 


COMBINE 


1615 P065A 681A 


CHKHIGH 


STA» 


SAVE1 


1616 P065B C800 




LDA 


RANGE 


P065C FA32 








1617 P065D A081 




AND- 


HOOFF 


1618 P065E 0862 




TCA 


Q 


1619 P065F C816 




LDA* 


SAVE2 


1620 P0660 0834 




AAQ 


A 


1621 P0661 0111 




SAN 


HIGH-*-l 


1622 P0662 1CE6 




JMP* 


CINCREMENl 


1623 P0663 D812 


HIGH 


RAO* 


SAVE2 


1624 P0664 C811 


COMBINE 


LDA* 


SAVE? 


1625 P0665 0FC8 




ALS 


8 


1626 P0666 880E 




ADD* 


SAVE1 


1627 P0667 6800 




STA 


OBUFFER 


P0668 025C 








1628 P0669 6800 




STA* 


CURAD 


1629 P066A 1CDE 




JMP* 


(INCREMEN) 


1630 P066B C809 


W1536 


LDA* 


SAVE1 


1631 P066C 9000 




SUB 


=NS90 


P066D 0090 








1632 P066E 0104 




SAZ 


HIGHl-*-l 


1633 P066F 0A10 




ENA 


$10 


1634 P0670 8804 




ADO* 


SAVE1 


1635 P0671 6803 




STA* 


SAVE1 


1636 P0672 18F1 




JMP* 


COMBINE 


1637 P0673 18E6 


HIGH1 


JMP* 


CHKHIGH 


1638 P0674 0000 


SAVE1 


NUH 





1639 P0675 0000 


SAVE2 


NUM 





1640 P0676 0000 


CURAD 


NUH 






CYLINDER COUNT 

TRACK AND SECTOR COUNT 

HOW HANY WORDS ARE IN THE BUFFER 

HAVE TRACK AND SECTOR REACHEO MAX 

UPDATE SECTOR 

OOFF 



UPDATE CYLINDER 



HAS TRACK AOORESS REACHED MAX. 
UPOATE TRACK ADDRESS 



01600 
01601 
01602 
01603 
01604 
01605 
01606 
01607 

01608 
01609 
01610 
01611 

01612 
01613 
0161<t 
01615 
01616 

01617 
01618 
01619 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 

01628 
01629 
01630 
01631 

01632 
01633 
01634 
01635 
01636 
01637 
01638 
01639 
01640 
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1642 
1643 

1644 

1645 

1646 
1647 

1648 

1649 

1650 

1651 

1652 
1653 

1654 
1655 

1656 
1657 

1658 
1659 



1660 

1661 
1662 

1663 

1664 

1665 
1666 
1667 

1668 

1669 
1670 
1671 
1672 

1673 



P0677 
P0678 
P0679 
P067A 
P067B 
P067C 
P0670 
P067E 
P067F 
P0680 
P0681 
P0682 
P0683 
P068t» 
P0685 
P068& 
P0687 
P0688 
P0689 
P068A 
P0688 
P068G 
P0680 
P068E 
P068F 
P0690 
P0691 
P8692 
P0693 
P0694 
P0695 
P0696 
P0697 
P0698 
P0699 
PQ69A 
P0698 
P069C 
P0690 
P069E 
P069F 
P06A0 
P06A1 
P06A2 
P06A3 
P06A4 
P06A5 
P06A6 
P06A7 
P06A8 
P06A9 



OCFD 

4800 

FA4B 

E80O 

FE2B 

C800 

0244 

0102 

E800 

0242 

4800 

0241 

C800- 

FCFO 

6800 

FB8B 

C800 

FA06 

A082 

6800 

0239 

68E9 

C800 

FA36 

A06C 

EQOO 

CECE 

0112 

EOOO 

6161 

4800 

008F 

0C06 

5800 

FA20 

EOOO 

05FF 

C800 

0224 

8111 

0C5F 

C800 

0084 

6A00 

0221 

0864 

OOFE 

0146 

6AO0 

021C 

0864 



SEC6 



SEC6H 



SEC6Z 



SEC6A 



SEC6C 



ENQ 
STQ 


-2 

SECTPASS 


LOQ 


T4*l 


LDA 


BUFFLAG 


SAZ 
LOQ 


2 

SURFACE 


STQ 


OBUFFER-1 


LDA 


T10+1 


STA 


T3+1 


LOA v 


RANGE 


AND- 
STA 


HFFOO 
OBUFFER 


STA» 
LOA 


GURAD 
SECTPASS 


AND- 
LDQ 


CONST+1 
=N$CECE 


SAN - 
LOQ 


2 

=»N$6161 


STQ 


PATTERN 


ENQ . 
RTJ 


6 
REQUEST 


LDQ 


=N1535 


LDA 


BUFFLAG 


SAN 
ENQ 
LDA 


1 

95 

PATTERN 


STA 


OBUFFER.Q 


TCA 
INQ 
SQZ 
STA 


A 

-1 

SEC6B-»-l 
OBUFFER, Q 



01642 
01643 

01644 

01645 



USF SANE BUFFER AREA FOR READ + WRITE 



FFOO 

CURRENT AOORESS 



ALARM AND END OF OPERATION INTERRUPTS 
ONE TRACK 

ONE SECTOR 



TCA 



01646 
01647 

01648 

01649 

01650 

01651 

01652 
01653 

01654 

01655 

01656 
01657 

01658 
01659 

01660 

01661 
01662 

01663 

01664 

01665 
01666 
01667 

01668 

01669 
01670 
01671 
01672 

01673 
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1674 
1675 
1676 
1677 

1678 

1679 

1680 
1681 

1682 
1683 

1684 
1685 
1686 
1687 

1688 
1689 
1690 

1691. 
1692 

1693 
1694 

1695 
1696 

1697 

1698 
1699 

1700 

1701 
1702 

1703 
1704 

1705 

1706 
1707 
1708 
1709 
1710 



P06AA 

P06AB 

PQ6AC 

P06AO 

P06AE 

P06AF 

P06B0 

P06B1 

P06B2 

P06B3 

P06B4 

P06B5 

P0686 

P06B7 

P06B8 

P06B9 

P06BA 

PQ6BB 

P06BC 

P06BO 

P06BE 

P06BF 

P06C0 

P06C1- 

P06C2 

P06C3 

P06C4 

P06C5 

P06C6 

P06C7 

P06C8 

P06C9 

P06CA 

P06C8 

P06CC 

P06CO 

P06CE 

P06CF 

P06O0 

P0601 

P0602 

P0603 

P06D4 

P06O5 

P0606 

P06D7 

P06D8 

P0609 

PQ60A 

P06DB 

P06DC 

P06O0 

P06DE 

P06DF 



ODFE 
0141 
18F5 
5800 
FC7B 
5800 
FC19 
C800 
020F 
0113 
5800 
F076 
1803 
5800 
F048 
0A10 
5406 
18F1 
5800 
FF8B 
0101 
18EF 
C800 
F9CD 
A082 
6800 
0200 
68B0 
5800 
FC62 
OAOO 
6800 
FAAE 
5800 
FC21 
C8A8 
6800 
01F5 
C800 
01F0 
0113 
5800 
FD57 
1803 
5800 
F029 
C800 
FA9F 
0101 
181F 
0A01 
60 FF 
EOOO 
05FF 



SEC6B 



SEC6X 



SEC6D 



SEC6Y 



PAGE 


53 


INQ 
SQZ 
JMP» 
RTJ 


-1 

1 

SEC6C 

CLRCON 


RTJ 


WRITE 


LDA 


BUFFLAG 


SAN 
RTJ 


3 
CHKSEC 


JMP» 
RTJ 


♦♦3 

CHKTRK 


ENA 
RTJ- 
JMP» 
RTJ 


$10 

(JUMP) 
SEC6B 
INCREMEN 


SAZ 

JMP» 

LDA 


1 

SEcex 

RANGE 


ANn- 
STA 


HFFOO 
OBUFFER 


STA* 
RTJ 


CURAO 
CLRCON 


ENA 
STA 



ALFLAG 


RTJ 


READ 


LDA* 
STA 


CURAD 
OBUFFER 


LDA 


BUFFLAG 


SAN 
RTJ 


3 
CHKSEC 


JMP* 
RTJ 


*+3 

CHKTRK 


LOA 


ALFLAG 


SAZ 

JNP* 

ENA 

STA- 

LOQ 


1 

SEC6E 
1 . 
I 
=N1535 



DATE! 01/04/75 



CLEAR CONTROLLER ANO CONNECT 
WRITE ONE TRACK OR SECTOR 



REPEAT. CONDITIONS (WRITE) 
UPDATE ONE TRACK OR SECTOR 



FFOO 

CLEAR CONTROLLER AND CONNECT 

CLEAR ALARM FLAG 

READ ONE TRACK OR SECTOR 



INITIALIZE BUFFER INDEX 



01674 
01675 
01676 
01677 

01678 

01679 

01680 
01681 

01682 

01683 

01684 
01685 
01686 
01687 

01688 
01689 
01690 

01691 
01692 

01693 
01694 

01695 
01696 

01697 

81698 
01699 

01780 

01701 
01702 

01703 
01704 

01705 

01706 
01707 
01708 
01709 
01710 
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OATEI 01/04/75 



1711 PQ6E0 C800 

P06E1 OlEO 

■■- 1712-P96E2 Olll 

1743 P06E3 0C5F 

1714 P06E4 C841 

-1715-P06E5 6*4)0 

P06E6 FC37 

1716 P06E7 8900 
~- f»06E* . eiOG- 

1717 P06E9 0101 

1718 P06EA 5810 
— 1719-P06EB ODFE 

1720 P06EC 01*0 

1721 P06ED DOFF 
-l-72e-P06EE €837 

1723 P06EF 086* 

1724 P06F0 6800 
■— - -PQ&fi FG2C- 

1725 P06F2 8900 
P06F3 0101 

-1726 *>06F* -0101 - 

1727 P06F5 5812 

1728 P06F6 OOFE 
—1729 P06F7 -DOFF 

1730 P06F8 0141 

1731 P06F9 18EA 
- 1732 P06F* OA10 

1733 P06FB 5406 

1734 P06FC 18C9 
,-1735 -P06FO-5800 

P06FE FF4A 

1736 P06FF 0101 

---1737 P97fl 0--18C7 

1738 P0701 5800 

P0702 F966 

*47»9 P8703-16C2- 

/174D >-..:■',. 

1741 P87D4 1882 

—1742 P078* 1600 

P0706 FF70 

1743 P07O7 0000 

^-1744 P07Q8 4818 

1745 P0709 EOFF 

1746 P070A 461A 
• -1747 P0788 CAOO 

P070C 0188 

1748 P070O 6800 
~ -. P070E FC10 

1749 P070F 0814 

1750 P0710 OCOO 
-1791 -P871* 3000 

P0712 0060 

1752 P0713 8800 

P0714 FF61 



SEC6F 



5EG6F 



ERROR 



LDA 

SAN 
ENQ 
LOA» 
STA- 

EOR 

SAZ 

RTJ» 

INQ 

SQZ 

RAO- 

LDA* 

TCA 

STA 

EOR 

SAZ 

RTJ* 

INQ 

RAO- 

SQZ 

JMP* 

ENA 

RTJ- 

JMP» 

RTJ 

SAZ 

JHP* 

RTJ 

JMP« 

JHP» 
JMP 

NUH 
STQ* 

LDQ- 
STQ» 
LOA 

STA 

TRQ. 
ENO 
DVI 

AOO 



BUFFLAG 

•1 

95 

PATTERN 
OAT A3 

OBUFFERtl 



1 

ERROR 

-1 

SEC6E-*-l 

I 

PATTERN 

A 

DATA3 

OBUFFERtl 

■1 -- - 

ERROR 
-1 

I .... .._„. 

SEC6E 

SEC6F 

$10 

IJUMP) 

SEC6D 

INGRENEN 

i '■' 

-SEC6Y -■ 
FINSECT 

SEG60 

SEC6H 
SEG6 



QSAVE 

I 

ISAVE 

OBUFFERtQ 

0ATA4 

A 

*N96 

CURAD 



BIT FOR BIT CONPARE 

ERROR 
INCREMENT BUFFER INOEX 

BIT FOR BIT CONPARE 

ERROR 
IGGREMENT BUFFER INDEX 



REPEAT CONDITIONS (REAO) 



REPEAT CONDITIONS - READ RECORD 
OVER AGAIN 
NEXT ITERATION 
REPEAT SECTION 



SAVE INDEX 
SAVE BUFFER INDEX 



DETERMINE SECTOR 



01711 

§1712 
01713 
01714 
01715 

01716 

01717 
01718 
01719 
01720 
01721 
01722 
01723 
01724 

01725 

-84726- 
01727 
01728 
01729 
01730 
01731 

-817*2 
01733 
01734 
01735 

01736 
01737 
01738 

41739 
91740 
01741 
01742 

01743 
01744 
01745 
01746 
01747 

01748 

01749 
01750 
017*1 

01752 
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1753 P0715 6800 




STA 


OATA1 


P0716 FC05 








175* P0717 4800 




STQ 


DATA? 


P0718 FC04 








1755 P0719 0A20 




ENA 


$20 


1756 P071A 0C1B 




ENQ 


$1B 


1757 P0718 5800 




RTJ 


STOP 


P071C FBEC 








1758 P 071 D. CO 43 




LDA- 


STJP 


1759 P071E A076 




AND- 


CONST+il 


1760 P071F E804 




LDQ» 


QSAVE 


1761 P0720 8101 




SAZ 


1 


1762 P0721 1808 




JHP* 


SEC6E 


1763 P0722 1CE4 

■1 7A1& 


3f. 


JMP* 


(ERROR) 


-A f ©•f * 

1765 P0723 0000 


QSAVE 


NUM 





1766 P0724 0000 


ISAVE 


NUM 





1767 P0725 0000 


PATTERN 


NUM 






DATE! 01/04/75 



ADDRESS OF SECTOR IN ERROR 



WRITE AND REAO RECOVERABLE CAN 
BE CHECKED HERE. 



01753 

01754 

01755 
01756 
01757 

01758 
01759 
01760 
01761 
01762 
01763 
0176*1 
01765 
01766 
01767 



1769 
1770 
1771 
1772 
1773 
1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 



P0 726 
P07 27 
P0723 
P0729 
P072A 
P072B 
P072C 
P072D 
P072E 
P072F 
P0730 
P0731 
P0732 
P0733 
P073*» 
P0735 
P0736 
P0737 
P0738 
P0739 



5800 
FC36 
COOO 
08C4 
E000 
0924 
5800 
FD10 
5800 
FC1F 
5800 
FBF8 
E800 
FBED 
C800 
018F 
5800 
FA87 
5800 
FA«tO 



SEC7 



SEC7A 



SEC7AA 



SEC78 



RTJ 
LDA 
LDQ 
RTJ 
RTJ 
RTJ 
LDQ 
LDA 
RTJ 
RTJ 



SECTION 7 

CHECK OVERLAP SEEK 

TWO DISLPACKS ARE NEEDED 

SECGEN GENERATE RANDOM NUMBERS 

=XOBUFFER 

=X0BUFFER+96 

CONV 

MOVEADR 

CLRCON 

EQUIPADR 

OBUFFER 

OUTPUT 

INPUT 



CONVERT TO. LEGAL ADDRESSES 
MOVE ADDRESS UP 
SELECT FIRST UNOIT 



LOAD ADDRESS 
GERT STATUS 



01769 
01770 
01771 
01772 
01773 
01774 

01775 

01776 

01777 

01778 

01779 

01780 

01781 

01782 

01783 
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1764 
1765 
178* 
1787 

1766 

1789 
1796 

1791 

1792 

179i 

179«i 

1795 

1796 
-1797 
1798 
1799 
-1840 
1801 

1882 

1803 

180* 



1805 
1806 
1807 

1*08 

1869 

1810 

1811 

18** 

1813 

1814 

1815 
1816 
1817 



P073A 
P873B 
P8*3G 
P073D 
P073E 
P073F 
P0740 
P0741 

~P4742 
P07*»3 
P074<» 
P4745 
P07*6 
P0747 
P07*8 
PQ749 
P074A 
P0748 
P074C 
P07W 

*07*€ 
PQ7kF 
P0750 

-#0751 
P0752 
P0753 

"P6754 
P0755 
P0756 
P6757- 
P0758 
P6754 
P475A 
P075B 
P075C 

-P475D 
P478E 
P075F 

-P0768 
P0761 
P0762 
P4763 
P0764 
P0765 

>6766 
P0767 
P0768 
P0769 
P876A 
P076B 
P476C 
P0760 
P076E 
P076F 



AQ6F 
0111 
18FB 
C800 
F9A«» 

-8474- 
68 k A 
E800 
FBO0- 
5800 
FA7A 
€800 
FBOA 
C800 
01 7C 
5800 
FA74 
5604 
FA3A 
A06F 
0111^ 
18FB 
0C26 

r483A- 
5840 
F8D6 
5849 
FB09 
5800 
FA35 
B800 
0168 

^6111- 
1815 
5800 

-FA 29 
6800 
F0BO 
C844 
0163 
6800 

- FOB A 
C8D0 
FBC3 
6600- 
FBB7 
C000 
BADD 
6860 
FBBO 
OA20 
E81E 
5800 
F899 



SEG7G 



SEC7E 



PAGE 
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ANO- 
SAN 
JMP»^ 
LOA 


CDNST+4 
1 

SEG7B 
UNIT 


EOR 

STA» . 
LOQ 


C0NST+9 
TEMPLOC 
EQUIPOIR 


RTJ 


OUTPUT 


LOQ 


EQUIP AOR 


LOA 


OBUFFER 


RTJ 


OUTPUT 


RTJ - 


INPUT 


ANO- 

SAN 

JHP» 

ENQ 

STQ» - 

RTJ 


CONST*** 

• 1 

SEC7C 
S26 

TEMPLOC*! 

CLRCON 


RTJ 


RETCONT 


RTJ 


AORINP 


EOR 


OBUFFER 


SAN 

JMP» 

RTJ 


1 '- -■■ 

SEC7D 
INPUT 


STA 


DATA2 


LOA - 


OBUFFER 


STA 


0ATA3 


LOA 


INAOR 


STA- 


OATA«» 


LOA 


=N$BAD0 


STA 


DATA1 


ENA 

LOQ* 

RTJ 


$20. - 

TEMPLOC+1 

STOP 



OAT El 01/04/75 



81764 
61*85 

#AIT FOR END 4F OPERATION STATUS 61746 

61787 

01768 
01789 
01790 



SELECT OTHER UNIT 



LOAD ADDRESS 



SELECT FIRST UNIT 

HAIT NOT BUSY 

GET AOORESS REGISTER STATUS 



JUMP IF OKAY 
DIRECTOR STATUS 

EXPECTED ADDRESS 



01791 
01792 
01793 
01794 
01795 



01796 

61797 

HAIT FOR END OF OPERATION STATUS 01798 

01794 
-41644 
01861 



PACK WENT TO WRONG ADDRESS 



41682 

01803 

01864 

81805 
01866 
01807 

01608 

81609 

01810 

01811 

41812 

01813 

01814 

01815 
01816 
01817 
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DATE! 01/0«f/75 



1818 
1819 
1820 
1821 
1822 
1823 

182<» 

1825 
1826 

1827 
1828 
1829 



P0770 E818 
P0771 0009 
P0772 0157 
P0773 D818 
P0774 C816 
P0775 E800 
P0776 FBA9 
P0777 5800 
P0778 FA46 
P0779 18DA 
P077A 5800 
P077B F8EO 
P077C 18B3 
P0770 18B0 
P077E 18A7 



SEC7D 



SEC7F 



LDQ» 


TEMPLOC+i 


INQ 


-$26 


SQN 


SEC7F-»-l 


RAO» 


TEMPLOC+1 


LDA* 


TEMPLOC 


LOQ 


EQUIPOIR 


RTJ 


OUTPUT 


JMP* 


SEC7F 


RTJ 


FINSECT 


JMP» 


SEC7AA 


JMP» 


SEC7A 


JMP» 


SEC 7 



SELECT OTHER UNIT 



REPEAT CONDITION 
NEXT PASS 
REPEAT SECTION 



01818 
01819 
01820 
01821 
01822 
01823 

0182% 

01825 
01826 

01827 
01828 
01829 



1831 P077F C805 


SEC8 


LOA» 


SECCH 


1832 P0780 6800 




STA 


SEC4Z 


P0781 FD85 








1833 


* ' 






1834 P0782 1800 




JHP 


SEC4 


P0783 F076 








1835 P0784 0C05 


SECCH 


ENQ 


5, 


1836 P07*5 C8FE 


SEC9 


LDA* 


SECCH 


1837 P0786 6800 




STA 


SEC6Z 


P0787 FFOF 








... 1838 P0788 1800 




JHP 


SEC6 


P0789 FEEO 









RUN SECTION 4 WITH READY ANO NOT BUSY 
INTERRUPT INSTEAD OF END OF OPERATION 



01831 
01832 

01833 
01834 

01835 
01836 
01837 

01838 



18%0 


P078A 


0002 


TEMPLOC 


BSS 


1841 


P078C 


OCFE 


SEC1Q 


ENQ 


18t»2 


P0780 
P078E 


4800 
F936 




STQ 


1843 


P078F 


ocoo 




ENQ 


1844 


P0790 
P0791 


C800 
F8FD 




LDA 



TEMPLOC (2) 

-1 

SECTPASS 


RANGE 



01840 
01841 
01842 

01843 
01844 
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OATEI Q 1/04/75 



1845 P0792 0FE8 


LLS 


8 


1846 P0793 8000 


AOO 


-NS90 


P0794 0090 






1847 P0795 68F4 


STA* 


TEMPLOC 


1848 P0796 0FA8 


QLS 


8 


1849 P0797 48F3 


STQ» 


TEMPLOC+1 


1850 P0798 5800 


RTJ 


CLRCON 


P0799 F890 






1851 P079A C8F0 SIOA LDA» 


TEMPLOC+1 


1852 P079B E800 


LOQ 


EQWRTAOD 


P079C FB89 






1853 P0790 5800 


RTJ 


OUTPUT 


P079E FA20 






1854 P079F 5800 


RTJ 


RETCONT 


P07A0 FA BE 






1855 P07A1 0A10 


ENA 


$10 


1856 P07A2 5406 


RTJ- 


(JUMP) 


1857 PQ7A3 18F6, 


JMP» 


SIOA 


1858 P07A4 C8E6 


LDA* 


TEMPLOC+1 


1859 P07A5 B8E4 


EOR* 


TEMPLOC 


1860 P07A6 0104 


SAZ 


S108-«-l 


1861 P07A7 C8E3 


LDA* 


TEMPLOC+1 


1862 P07A8 0910 


INA 


$10 


1863 P07A9 68E1 


STA» 


TEMPLOC+1 


1864 P07AA 18EF 


JMP* 


SIOA 


1865 P07A3 5800 S108 RTJ 


FINSECT 


P07AC F88C 






1866 P07AO 18EC 


JMP» 


SIOA 


1867 P07AE OBOO 


NOP 





1868 P07AF 180C 


JMP* 


SEClO 



LAST CYLINDER 
FIRST CYLINDER 



WRITE AOORESSES ON TRACK 
RETURN CONTROL TO MONITOR 



INCREMENT TRACK NO. 

REPEAT CONDITIONS 
REPEAT SECTION 



01845 
01846 

01847 
01848 
01849 
01850 

01851 
01852 

01853 

01854 

01855 
01856 
01857 
01858 
01859 
01860 
01861 
01862 
01863 
01864 
01865 

01866 
01867 
01868 
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OPJ 


L008 


PAGE 
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18.70 


P07B0 


0000 MSEC 


NUM 





1871 


P07B1 
P07B2 


5800 SEC11 
FBAB 


RTJ 


SECGEN 


1872 


P07B3 
P07B4 


COOO 
08C4 P 


LOA 


=X08UFFER 


1873 


P07B5 
P0 7B6 


EOOO 
0924 P 


LOQ 


=X0BUFFERf96 


1874 


P07B7 
P07B3 


5800 
FC85 


RTJ 


CONV 


1875 


P07B9 


OAOO 


ENA 





1876 


P07BA 
P07BB 


6800 
0113 


STA 


OBUFFER+10 


1877 


P07BC 
P07BO 


6600 
0113 


STA 


00UFFER+12 


1878 


P07BE 
P07BF 


6800 
011E 


STA 


OBUFFER+25 


1879 


P07C0 
P07C1 


6800 
011E 


STA 


OBUFFER+27 


1880 


P07C? 
P07C3 


6800 
0133 


STA 


OBUFFER+50 


1881 


P07C*» 
P07C5 


6800 
0133 


STA 


OBUFFER+52 


1882 


P07C6 
P07C7 


COOO 
CA9F 


LOA 


=N$CA9F 


1883 


P07C8 
P07C9 


E800 
F8CI* 


LOQ 


UNITSECT 


1884 


P07CA 


0172 


SQM 


2 


1885 


P07CB 
PQ7CC 


COOO 
639F 


LOA 


=NS639F 


1886 


P07CO 
P07CE 


6800 
0101 


STA 


OBUFFER+11 


1887 


P07CF 
P07D0 


6800 
0101 


STA 


09HFFER+13 


1888 


P0701 
P07D2 


6800 
010C 


STA 


09UFFER+26 


1889 


P07O3 
P07D4 


6800 
010C 


STA 


OBUFFER+28 


1890 


P0705 
P0706 


6800 
0121 


STA 


OBUFFER+51 


1891 


P07D7 
P07D8 


6800 
0121 


STA 


CSUFF'E*+53 


1892 


P07D9 
P07OA 


5800 
F8*tF 


RTJ 


CLRCON 


1893 


P07D3 
P07DC 


5800 SC11A 
FB72 


RTJ 


MOVE A OR 


1894 


P0 7DU 
P07Du 


5800 
FA80 


RTJ 


PETCONT 


1895 


P07DF 
P07E0 


E8 SCI 10 
FO*»0 


LOQ 


EQUIPA09 


1896 


P07E1 
P07E2 


C800 
00E2 


LOA 


ODUFFER 


1897 


P07E3 
P07E4 


5800 
F90A 


RTJ 


OUTPUT 



OATFI fU/0<»/75 



POSITIONING TIME CHECK 



CONVERT TO LEGAL ADORESS 



8KJ LAST ADDRESS 



853 LAST ADORESS 



MOVE THE NEXT ADORESS UP 



PACK ADDRESS 
OUTPUT ADDRESS 



01870 
01871 

01672 

01373 

01874 

01875 
01876 

01877 

01878 

01879 

01880 

01881 

01882 

01883 

01884 
01885 

01866 

01887 

01888 

01889 

01890 

01891 

01892 

01893 

01894 

01895 

01896 

01897 
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DATE* 01/04/75 



1898 
1899 

1900 
1901 
1902 
1903 
1904 
1985 
1906 
1907 
1988 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 



P07E5 
P07E6 
P07E7 
P07E8 
P07E9 
PQ7EA 
P07EB 



5800 
5800 
F881 
18F6 
18F1 
18C6 
0000 



P07EC COOO 
P0 7EO FE06 
P07EE 0901 
P07EF 0101 
P07FO 18F0 
P07F1 1CF9 



TIME 



RTJ» 
RTJ 

JHP* 
JHP* 
JMP* 
NUM 



SC11E 
FINSECT 

SC110 
SC11A 
SECil 




WAIT 165MS HAX FOR NOT BUSY 



REPEAT CONDITION 
NEXT ITERATION 
REPEAT SECTION 
MSEC TIMER 



THE FOLLOWING TWO WORDS SET UP THE NUMBER OF CYCLES NEEDED 
TO ESTABLISH A 1 MILLISECOND LOOP 

THE CONSTANT TIMCON WILL BE OVERLAYEO ACCORDING TO THE 
TYPE OF CPU 



LDA- 
TIMCON NUM -297 

TIME1 INA 1 

SAZ 1 

JMP* TIME1 

JMP* (TIME) 



SET UP MILLISECOND COUNT 
FOR 170*» 



EXIT 



01898 
01899 

01900 
01901 
01902 
01903 
01994 
01905 
01906 
01907 
01908 
01909 
01910 
01911 
01912 
01913 
01914 
01915 
01916 



1918 
1919 
1920 
1921 
1922 
1923 

1924 
1925 
1926 
1927 

1928 
1929 
1930 
1931 

1932 

1933 

1934 
1935 
1936 

1937 



P07F2 
P07F3 
P07F4 
P07F5 
P07F6 
P07F7 
P07F8 
P07F9 
P07FA 
P07FB 
P07FC 
P07FD 
P07FE 
P07FF 
P0800 
P0801 
P0802 
P0803 
P0804 
PQ805 
P0806 
P0807 
P0808 
P0809 
P080A 
P080B 



0000 
0844 
68BB 
58F5 
D8B9 
5800 
F98E 
OFCE 
0121 
18F9 
COOO 
00A5 
98 Bl 
012B 
C8AF 
6800 
F819 
C800 
00C0 
6800 
FB16 
0A10 
OC1C 
5800 
FAFE 
1CE6 



SC11E 
SCilB 



SC11C 



NUM 

CLR 

STA* 

RTJ» 

RAO* 

RTJ 

ALS 
SAP 
JMP* 
LDA 

SUB* 
SAP 
LDA* 
STA 

LDA 

STA 

ENA 
ENQ 
RTJ 

JMP* 



A 

MSEC 

TIME 

MSEC 

INPUT 

14 
1 

SC113 
=N165 

MSEC 

SCliC-*-l 
MSEC 
DATA1 

OBUFFER 

DATA? 

$10 
$1C 
STOP 

ISC11E) 



INITIALIZE THE 

COUNTER 
WAIT 1 MILLISECOND 

GET DIRECTOR STATUS 



GO AGAIN 

MAX WAIT TIME 



MSEC WAIT TIME 



LAST CYL AOOR OUTPUT 



REPORT MAX POSITION TIME 
EXCEEDED 

EXIT 



01918 
01919 
01920 
01921 
01922 
01923 

01924 
01925 
01926 
01927 

01928 
01929 
01930 
01931 

01932 

01933 

01934 
01935 
01936 

01937 
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DATEt 01/04/75 


1939 


P080C 


OAFE 


SEC12 


ENA 


-1 






1940 


P080O 
P080E 


6800 
F886 




STA 


SECTPASS 






1941 


P080F 
P0810 


COOO 
1234 




LDA 


=NS1234 






1942 


P0811 


6402 




STA- 


(STOPX) 






1943 


PQ812 
PQ813 


EO00 
0600 




LDO 


=N$600 




PTC2 


1944 


P0814 


C600 


S12A 


LDA- 


(0),Q 




PTC2 


1945 


P0815 


0000 




NUM 







PTC2 


1946 


P0816 
P0817 


6A00 
00AO 




STA 


OBUFFER,Q 




HOVE COPY OF MONITOR TO SUFFER 


1947 


P0818 


OOFE 




INQ 


-1 




AREA. 


19*»8 


P0819 


0171 




SQM 


1 






1949 


P081A 


18F9 




JMP» 


S12A 






1950 


P0810 


COOO 


T6 


LDA 


sXOBUFFER+1536 


***************** BIAS ********* 




P081C 


0EC4 P 












1951 


P081O 
P081E 


6800 
00A5 




STA 


OBUFFER-1 






1952 


P081F 
P0820 


5800 
FB09 




RTJ 


CLRCON 






1953 


P0821 


0A00 




ENA 









1954 


P0822 
P0823 


E800 
FAFO 




LDQ 


EQUIPADR 






1955 


P0824 
P0825 


5800 
F999 




RTJ 


OUTPUT 




OUTPUT ADDRESS 


1956 


P0826 
P0827 


5800 
F95F 


S128 


RTJ 


INPUT 






1957 


P0828 


A0 6C 




AND- 


CONST+1 




CHECK FOR BUSY 


1958 


P0829 


0101 




SAZ 


1 






1959 


P082A 


18FB 




JMP* 


S12B 






1960 


P0828 
P082C 


5800 
F845 




RTJ 


0UT8UF 




WRITE ONE TRACK 


1961 


P082D 
P082E 


COOO 
5678 




LOA 


=N$5678 






1962 


P082F 


6402 




STA- 


(STOPX) 






1963 


P0830 


C073 




LDA- 


BIT8 


IS 


OMIT TTY SET 


1964 


P0831 


5406 




RTJ- 


(JUMP) 






1965 


P0832 


1806 




JMP* 


S1281 


YES 




1966 


P0833 
P0834 


COOO 
C996 P 




LDA 


=XAUTOMSG 


NO 




1967 


P0835 
P0836 


EOOO 
OOOE 




LDQ 


=XAUTOENO- 


AUTOMSG+1 




1968 


P0837 


5408 




RTJ- 


(MESSAGE) 


TELL OPERATOR TO AUTOLOAD 


1969 


P0838 


0806 


SI 261 


SET 


A,Q 






1970 


P0839 


0001 




SLS 


1 






1971 


P083A 


0000 




SLS 







START AT THIS AOORESS PLUS ONE 


1972 






* 








AFTER AUTOLOADING FROM DISK PACK 


1973 


P0833 
P083C 


EOOO 
0600 




LDQ 


=N$600 




PTC2 


1974 


P083D 


C600 


S12D 


LDA- 


(0) tQ 




PTC2 


1975 


P083E 


0000 




NUM 







PTC2 


1976 


P083F 
P0840 


DAOO 
0084 




EOR 

1 


OBUFFER,Q 
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01939 
01940 

01941 

01942 
01943 

01944 
01945 
01946 

01947 
01948 
01949 
01950 

01951 

01952 

01953 
01954 

01955 

01956 

01957 
01958 
01959 
01960 

01961 

01962 
01963 
01964 
01965 
01966 

01967 

01968 
01969 
01970 
01971 
01972 
01973 

01974 
01975 
01976 
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PAG 


1977 P0841 Olli 


SAN 


1978 P0842 1821 


JMP* 


1979 P0043 WOO 


STQ 


P0844 FA08 




1980 P0845 C6Q0 


LDA- 


1901 P0846 0000 


NUM 


1982 PQ847 6800 


STA 


P0848 FA06 




- 1903 P0849 EOO0 


LOQ 


P084A 0600 




1984 PQ84B CAOO S12A1 LOA 


P084C 0070 




1985 P084D 6600 


STA- 


1986 P084E 0000 


NUM 


1987 PQ84F 01«»2 - 


SQZ 


1988 P0850 ODFE 


INQ 


1989 P0851 18F9 


JMP» 


1990 P0852 COOO 


LDA 


P0853 BADO 




1991 P0854 6800 


STA 


P0855 FAC6 




1992 P0856 CAOO 


LOA 


P0857 0060 




1993 PQ858 6600 


STA 


P0859 FACV 




1994 P085A 0A20 


ENA 


-1995 P085B 8C1B 


ENQ 


1996 P085C 5800 


RTJ 


P0850 FAA8 




■•*: 1997 PQ85E 1808 


JMP* 


1998 P085F A076 


AND- 


1999 P0860 0115 


SAN 


2000 P0861 £800 


LOQ 


P0862 FABA 




2001 P0863 ODFE S12C INQ 


2002 P0864 41171 


SQM 


2003 P0865 1807 


JNP» 


2004 P0866 5800 S12E RTJ 


P0867 F801 




2005 P0868 OB01 


NOP 


2006 P0869 0B01 


NOP 


2007 P086A 18A1 


JMP» 


2008 P086B 0006 PUTZ BSS 


2009 P0871 OCFE SEC13 ENQ 


2010 P0872 4800 


STQ 


P0873 F851 




2011 P0874 COOO 


LOA 


P0O75 CA90 




2012 P0876 E800 


LOQ 


P0877 F816 




2013 P0878 0172 


SQM 


2014 P0879 COOO 


LOA 


P087A 6390 
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OATEt 01/04/75 



1 

S12C 
OAT A 2 

(0),Q 
. 
DATA4 

»N$600 

OBUFFER.Q 

(0) »Q 



2 

-1 

S12A1 

=N$BAOD 

0ATA1 

OBUFFER»Q 

OAT A 3 

$20 
$10 
STOP 

S12E . 
C0NST»11 
S12E-»-l 
0ATA2 

-1 

1 

S120 

FINSECT 

1 

1 

SEC12 

PUTZI6I 

-1 

SECTPASS 

=N$CA90 

UNITSECT 

2 

"NS639Q 



WORD NO. IN ERROR 



OATA READ 



PTC 2 
PTC2 



PTC2 

PTC 2 

PTC2 
PTC2 
PTC2 
PTC2 
PTC2 



ERRCODE 



PTC2 
IGNORE REST OF ERRORS IF BIT 11 SET 



COMPARE ANOTHER LOCATION 



REPEAT CONDITION 
NEXT ITERATION 
REPEAT SECTION 



854 LAST TRACK 



853 LAST TRACK 



01977 
01978 
$1979 

01980 
01961 
01982 

01903 

01984 

01985 
01986 
01987 
01988 
01989 
01990 

01991 

01992 

01993 

01994 
01995 
01996 

01997 
01998 
01999 
02000 

02001 
02002 
02003 
02004 

02005 
02006 
02007 
02008 
02009 
02010 

02011 

02012 

02013 
02014 
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2015 


P087B 


68EF 


2016 


P087C 


OCOO 


2017 


P087O 


48EE 


2018 


P087E 


5800 




P087F 


FAAA 


2019 


P0880 


0AF5 


2020 


P0881 


68LC 


2021 


P0882 


0G31 


2022 


P0883 


48EB 


2023 


P0884 


C8E7 


2024 


P0885 


E800 




P0886 


FA9E 


2025 


P0887 


5800 




P0888 


F936 


2026 


P0889 


5800 




P088A 


F9D4 


2027 


P0883 


5800 




P088Q 


F8FA 


2028 


P088D 


68E2 


2029 


P088E 


AOOO 




P088F 


3700 


2030 






2031 






2032 


P0890 


0111 


2033 


P0891 


1813 


2034 


P0892 


C8DD 


2035 


P0893 


6809 


2036 


P0894 


08D9 


2037 


P0895 


C808 


2038 


P0896 


0101 


2039 


P0897 


18EC 


20<»0 


P0898 


D8U6 


2041 


P0899 


C8D2 


2042 


P089A 


6800 




PQ89B 


FA80 


2043 


P089C 


C8O0 


2044 


P089D 


6800 




P089E 


FA7E 


2045 


P089F 


0A10 


2046 


P08A0 


EBCE 


2047 


P08A1 


5800 




P08A2 


FA66 


20<»8 


P08A3 


1805 


2049 


P08A4 


C8C9 


2050 


P08A5 


090A 


2051 


P08A6 


0101 


2052 


P08A7 


18F1 


2053 


P08A8 


0A10 


2054 


P08A9 


5<fQ6 


2055 


P08AA 


1805 


2056 


P08A8 


C8C0 


2057 


P08AC 


A0 7E 


2058 


P08AD 


9000 




P08AE 


0090 
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S13F 



S13A 



SI 3 J 



S13G 



S13H 



PAGE 


63 


STA* 


PUTZ 


ENQ 





STQ* 


PUTZ+1 


RTJ 


CLRCON 


ENA 


-10 


STA* 


PUTZ+3 


ENQ 


$31 


STQ* 


PUTZ+4 


LDA* 


PUTZ+1 


LDQ 


EQCHKWD 


RTJ 


OUTPUT 


RTJ 


RETCONT 


RTJ 


INPUT 


STA* 


PUTZ+5 


AND 


=N$3700 


SAM 


1 


JMP* 


S13G 


LUA* 


PUTZ+5 


STA* 


PUTZ+2 


RAO* 


PUTZ+3 


LOA* 


PUTZ+3 


SAZ 


1 


JMP* 


S13A 


RAO* 


PUTZ+<» 


LDA* 


PUTZ+1 


STA 


DA'TAl 


LOA* 


PUTZ+2 


STA 


OATA2 


ENA 


$10 


LOQ* 


PUTZ+4 


RTJ 


STOP 


JMP* 


S13H 


LDA* 


PUTZ+3 


INA 


10 


SA7 


S13H-*-l 


JMP* 


S13J 


ENA 


$10 


RTJ- 


(JUMP) 


JMP* 


S13F 


LOA* 


PUTZ+1 


AND- 


H00F0 


SU9 


=N$90 



DATEI D1/0W75 



LAST ADDRESS 


02015 




02016 


FIRST ADORESS 


02017 


• 


02018 




02019 


ATTEMPT COUNTER 


02020 




02021 


R RECOVERABLE CHECKWORD ERROR 


02022 


ADDRESS 


02023 




02024 


INITIATE CHECKWORD CHECK 


02025 


WAIT NOT BUSY 


02026 


GET STATUS 


02027 


CURRENT STATUS 


02028 


CHECKWORD, LOST DATA, SEEK, 


02029 


STORAGE PARITY, OEFECTIVE TRACK 


02030 


ARE RECOVERABLE ERRORS 


02031 




02032 


JUMP IF NO CHECKWORD ERROR 


02033 




02034 


STATUS AT LAST ERROR 


02035 


ATTEMPT COUNTER 


02036 




02037 




02038 


MAKE 10 ATTEMPTS 


02039 


$32 = ERRCODE FOR NON-RECOVERABL' 


02040 


CURRENT TRACK 


02041 




02042 




02043 


ERROR STATUS 


02044 




02045 


ERRCODE = $31 OR $32 


02046 




02047 




02048 




02049 




02050 


NO CHECKWORD ERROR 


02051 


RECOVERABLE ERROR 


02052 




02053 




02054 


REPEAT CONDITIONS 


02055 




02056 




02057 




02058 
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DPiooa 



PAGE hk 



DATEI 01/04/75 



2059 P08AF 0104 


SAZ 


S13Y-»-i 


2060 POSBO C88B 


LDA» 


PUTZ+i 


2061 P08B1 0918 ■-■■ 


IMA 


tlfl 


2062 P08B2 68B9 


STA* 


PUTZ+1 


2063 P08B3 18CC 


JMP» 


S13F 


2064 P08B4 C8B7 S13Y LDA» 


PUTZ+1 


2065 P08B5 B8B5 


EOR» 


PUTZ 


2066 P08B6 0105 


SAZ 


S13X-»-i 


2067 P08B7 C8B4 


- LOA» 


PUTZ+1 


2068 P08B8 A082 


AND- 


HFF0(1 


2069 P08B9 8073 


ADO- 


CONST+8 


2070 P088A-68B1 - 


STA* 


PUTZ+1 


2071 P08BB 18C4 


JMP» 


S13F 


2072 P08BC 5800 S13X RTJ 


FINSECT 


- ■'■•■■■■•- P08BO F7AB 






2073 P08BE 18C1 


JMP» 


S13F 


2074 P08BF OBOO 


NOP 





2075-P08CO 18B0- 


JMP» 


SEC 13 



IW3SEHENT TRACK 



FFOO 
INCREMENT CYLINDER 



REPEAT LAST CONDITION 
REPEAT SECTION 



02059 
02060 
02061 
02062 
02063 
0206* 
02065 
02 066 
02067 
02068 
02069 
02070 
02071 
02072 

02073 
02074 
02075 



2077 P08C1 0000 

2078 

2079 P08C2 0000 

2080 P08C3 092V 

2081 P08C4 0060 

2082 P0924 0985 

2083 P0925 0060 



QUFFLAG 


NUN 


SIZE-0 


SURFACE 


NUN 







ADC 


OBUFFER+96 


OBUFFER 


BSS 


0BUFFER<96> 




ADC 


IBUFFER+96 


IBUFFER 


BSS 


IBUFFER(96) 



SIZE-0F-8UFFER FLAG A=0»853 





02077 


«lt854 


02070 




02079 




02000 




02001 




02082 




02003 
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DP1008 



PAGE 



DATE* 01/04/75 



2085 


P0985 0000 


INIALIZE NUM 


2086 


P0986 C000 
•P0987 0000 P 


LOA 


2087 


P0988 6800 
P0989 F99E 


STA 


2088 


P098A 540A 


RTJ- 


2089 


P098B 4836 


STQ* 


2090 


P098C 6836 


STA* 


2091 


P098D E091 


LDQ- 


2092 


P098E C291 


LOA- 


2093 


P098F 540A 


RTJ- 


2094 


P0990 6837: 


STA» 


2095 


P0991 C000 
P0 992 09A4 P 


LOA 


2096 


P0993 0C25 


ENQ 


2097 


P0994 5408 


RTJ- 


2098 


P0995 1834 


JMP* 


2099 


P0996 8D0A 


AUTOMSG NUM 


2100 


P0997 5052 
P0998 4553 
P0999 5320 
P099A 4155 
P099B 544F 
P099G 4C4F 
P099O 4144 
P099E 2046 
P099F 4F52 
P09A0 2044 
P09A1 4953 
P09A2 4B20 


ALF 


2101 


P09A3 8D0A 


AUTOEND NUM 


2102 


P09A4 800A 


TYPE NUM 


2103 


P09A5 4450 
P09A6 3130 
P09A7 3038 
P09A8 2C20 
P09A9 3137 
P09AA 3338 
P09AB 2044 
P09AC 4953 
P09AO 4B20 
P09AE 5041 
P09AF 434B 
PO9B0 2054 
P09B1 4553 
P09B2 542E 


ALF 


2104 


P0983 8D0A 


NUM 


2105 


P09B4 4350 
P09B5 3246 
P09B6 2C20 
P09B7 5645 
P09B8 522E 
P09B9 2033 
P09BA 2E31 

60220800 F 


ALF 



-XDP1008 

BIAS 

CCONVM) 

TYPE1 

TYPE1+1 

TSACTV 

TSFREQ-1,Q 

CHEXASC) 

TYPEE-1- 

=XTYPE 



THIS ROUTINE WILL BE DESTPOYED 



CONVERT 



FWA 



TYPEE-TYPE+1 

CMESSAG) 

INI 

$8D0A 

X, PRESS AUTOLOAD FOR DISK X 



$8O0A 

$8O0A CARRIAGE RETURN 

X,OP1008 t 1738 DISK PACK TEST.X 



S8DCA 
X,CP2F, VER. 3.1-1 X 



02085 
02086 

02087 

02088 
02089 
02090 
02091 
02092 
02093 
02094 
02095 

02096 
02097 
02098 
02099 
02100 



02101 
02102 
02103 



02104 
02105 



PAGE 65 



OP1008 



PAGE 66 



DAT El 0.1/44/75 



P098S 
P09BC 

2106 P09BO 

2107 P098E 
P09BF 
P09CQ 

2108 P09C1 
P09C2 

- 2109- P 8963 

2110 P09C<» 
P09C5 

...:..-.... P09C6 
P09C7 

2111 P09C8 

2112 P09G9- 
P09CA 

2113 P09CB 
P09GC 

2114 P09CO 

2115 P09CE 
- P89CF 

2116 P0900 

2117 P09D1 

Wile fctiD s 

2119 P8SD4 
■-■r --P8935- 

2120 P0906 

2121 P09Q7 
- P09D0 

2122 P0909 
p23 P89J8A 

~-- : -~ 'PffweB- 

212^ P09OC 

2125 P09OD 

■-■— P09&E 

JW26 P890F 

. P>9£0 

**127 P09€l 

P09E2 

2128 P09E3 

"^29P^is 

P09E6 

-2130- P09E7 

2131 P99E8 

P09E9 

-2132 P89£;A 

2133 P09£b 

213<» 

2136 

2137 P09EC 



2031 
2020 
8D0A 
2049 
4120 
3D20 
0000 
0000 
2G20 
20*»6 
4320 
3O20 
2020 
8O0A 
€806 
F63B 
6800 
F953 
0901 
6800 
^951 
0901 
6800 



TYPE1 



TYPEE 
INI 



HUM 
ALF 



NUM 

NUM 
ALF 



NUM 
LDA- 

STA 

INA 
STA 



*8&0A 
3, I A 



0*0 

$2020 
*», FC 



$8O0A 
EQADDR 

EQUIPDIR 



EQUIPADR 



MAKE FUNCTION COOES 



INA 1. 

STA > EQ.HRITE 



■■•$o|I.-:. 

680$ T 


•"' ' iwit 


I :! i: ■' ■■■-.■' 


$*4;; 


ecireao 


F94&V - ----- 


----- ■ •:-*■- 


• '-£ - 


0901 


INA 


i 


6800 


STA 


EQCOMP 


F948 - 


'.. ,-•<• •■ 


— ~ V - - 


0901 


INA ■ 


i :.■„•* 


6soa.-'ij ■-■ 


■'■':.? STA ■;,;/ 


EQC^KWO 


F949-- 




-• ■ ■- ■-; - ■ 


0901 


INA 


1 


6800 


STA 


EQWRTADO 


F947 1? 


-.,— - --- 


- • -— tr — ■ -■■;•■- 


COUtt'f 


LDfr • 


*XSTART*1 


OOOtJf 


■■:. :•.!' 


'■ :'ii 


6600? - 


•>-- STA^ ■■ 


RETURN 


F622 






C000 i. 


LOA .:■: 


=0(0BUFFER+1536 


0EG4*# - 


;■''■■: ■•■ ■ .;•, 


■ ■ _. *, - »,. •• ■ 


68O0H 


" • . : STA."-, 


St^FACE V 


FEOB " 






8A08 


EN A 


o' 


6800 i 


STA 


BUFFLAG 


FE07 ; 






G849; 


LQA- 


INFORM 


A080 ,' 


ANO- 


HFjOOO 



* ». » + * » ■■*. • 



F000 

* « * * «. * * ******** » * * « * # * * 



0111 



OETERMINE II s THERE IS ENOUGH REMAINS CORE FOR A 
LONG OR SHORT BUFFER 
SAN 1 



-82106 
02107 



02108 

02109 
02110 



02111 
02112 

02113 

0211't 
02115 

02116 
02117 

02118 
02119 

02120 
02121 

02122 

02123 

0212* 
02125 

02126 

oe*27 

02128 

02129 

021*8 
02131 

02132 
02193 
02134 
82135 
02136 
02137 
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O ( 


^y 


O 
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2138 


P09EO 


18 1C 




JMP* 


TTT 


2139 


P09EE 
P09EF 


C800 
F938 


BUFCK 


LDA 


BIAS 


2140 


P09F0 
P09F1 


E800 
FEDO 




LDQ 


SURFACE 


2141 


P09F2 


017B 




SQM 


BUFCK2-*-i 


2142 


P09F3 


0121 




SAP 


1 


2143 


P09F4 


1815 




JMP». 


TTT 


2144 


P09F5 


CO 49 




LOA- 


INFORM 


2145 


P09F6 


A080 




AND- 


HF000 


2146 


P09F7 
P09F8 


8000 
OFFF 




AOO 


=N<SFFF 


2147 


P09F9 
P09FA 


9800 
FEC7 


BUFCKi 


SUB 


SURFACE 


2148 


P09F8 


0131 




SAM 


1 


2149 


P09FC 


1818 




JMP* 


AAA 


2150 


P09FO 


180C 




JMP* 


TTT 


2151 


P09FE 


0124 


8UFCK2 


SAP 


8UFCK3-*-l 


2152 


P09FF 


CD04 




LOA- 


INFOBK 


2153 


POAOO 


A080 




AND- 


HF000 F000 


2154 


P0A01 


88F6 




AOD* 


BUFCK1-1 


2155 


P0A02 


18 F6 




JMP* 


BUFCK1 


2156 


POA03 


CO 49 


3UFCK3 


LDA- 


INFORM 


2157 


P0A04 


A080 




ANtl- 


HF000 F000 


2158 


P0A05 


88F2 




ADO* 


BUFCKl-1 


2159 


P0A06 


0901 




INA 


1 


2160 


P0A07 


0131 




SAM 


1 


2161 






* * .* 


****** 


***************** 


2162 


P0A08 


180C 




JMP* 


AAA 


2163 


P0A09 


OBOO 


TTT 


NOP 





2164 


POAOA 
POAOB 


5800 
F67A 


TTT1 


RTJ 


PARAM 


2165 


POAOC 


C056 




LDA- SMMPAR 


GET SMM PARAMETER WORD 


2166 


POAOO 


0F42 




ARS 2 


STRIP 


2167 


POAOE 


0CQ3 




ENQ 3 


OUT 


2168 


POAOF 


08B2 




LAQ ct 


CPU INOEX 


2169 


P0A10 


CAOA 




LDA* TIMVAL 


,Q GET CPU MILLISECOND COUNT 


2170 


POAll 
P0A12 


6800 
FOOA 




STA TIMCON 


STORE IT IN TIME LOOP 


2171 


P0A13 


5401 




RTJ- 


(CONTROL) 


2172 


P0A14 
P0A15 


C800 
FEAC 


AAA 


LOA 


SURFACE 


2173 


P0A16 


0901 




INA 


1 


2174 


P0A17 
P0A18 


0800 
FEA8 




RAO 


BUFFLAG 


2175 


P0A19 


18F0 




JMP* 


TTT1 


2176 






* 






2177 






* 




TIME COUNT TABLE 


2178 






* 






2179 


P0A1A 


FE06 


TIMVAL 


NUM -297 


1704 


2180 


PQA18 


FF25 




NUM -218 


1774 


2181 


P0A1C 


FE94 




NUM -363 


1784 - 900 NSEC 


2182 


P0A1O 


FDOF 




NUM -54«t 


1784 - 60n NSEC 



o o o'o 'o o 



~-\ 



02138 
02139 

02140 

02141 
02142 
02143 
02144 
02145 
02146 

02147 

02148 
02149 
02150 
02151 
02152 
02153 
02154 
02155 
02156 
02157 
02158 
02159 
02160 
02161 
02162 
02163 
02164 

02165 
02166 
02167 
02166 
02169 
02170 

02171 
02172 

02173 
02174 

02175 
02176 
02177 
02178 
02179 
02180 
02181 
02182 
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PAGE 68 OATEI 01 


2183 POAIE 0%C% 
218% POEE2 OOOO 
2185 P0EE3 000ft 
2186 

1 

PGH- OEE% < 


BZS SUR8UF(13%«»-i2«»> 
TAGBUF NUM 
NUM o 
END 


3812) COM - 0000 < 0) OAT = 0000 ( 



02183 
0218% 
02165 
02186 



0) 
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DATE! (11/04/75 



EQUIVALENCES 



DEF.LINE 


NAME 


VALU- 


REFERENCED AT 


LINE 


NUMBER 






0000 


I 


00 FF 


(000255) i 


, 0374, 


1709, 


1721, 


1729, 


1745 




0071 


CONTRO 


0001 


(000001) , 


, 0072, 


0889, 


0893, 


2171 






0072 


STOPX 


0002 


(000002) , 


0073, 


0432, 


1010, 


1942, 


1962 




0073 


EXIT 


0003 


(000003) , 


074, 


0385 










0074 


REQINT 


0004 


(000004) 1 


0075, 


0076, 


0134, 


0340 






0075 


FCLRIN 


0005 


(000005) 1 


0135 












0076 


JUMP 


0G06 


(000006) , 


, 0077, 


0382, 


0387, 


040 2, 


0405, 


0416 










1329, 


1333, 


1339, 


1348, 


1389, 


1395 










, 1401, 


1410, 


1455, 


1483, 


1538, 


1559 










> 1570, 


1575, 


1586, 


1685, 


1733, 


1856 










, 1964, 


2054 










0077 


GENRAN 


0007. 


(000007) , 


> 0078, 


0131, 


1077, 


1083 






0078 


TYPEOU 


0006 


(000008) , 


, 0079, 


0080, 


0133 








0079 


TTYBZY 


0009 


(000009) 














0080 


HEXASC 


000A 


(000010) , 


0081, 


0132, 


0136, 


2093 






. ... .0081- 


OVRLAY 


oooa 


(000011) 


, 0082 












0082 


RELPOS 


oooc 


(000012) 1 


0083 












0083 


MAINL 


00GO 


(000013) 


, 0084 












0081* 


SETMAS 


0042 


(000066) , 


, 0085 












0085 


STJP 


0043 


(000067) , 


r 0086, 
1758 


0087, 


0130, 


0429, 


1003, 


1134 


.0086 


LASTVA 


0044 . 


(000068) 














0087 


LASTAD 


0045 


(000069) , 


, 0088 












0088 


LDUCOR 


0047 


(000071) , 


, 0089 












— 0089 


LOL1CO 


. 0048 - 


(000072) 1 


0090 












0090 


INFORM 


0049 


(000073) 1 


, 0091, 


2132, 


2144, 


2156 






0091 


SMMCNT 


0056 


(000086) , 


0092, 


0129 










. 0092 


BITOO 


006S 


(000107) , 


t 0093, 


0128 










0093 


8IT0 


006B 


(000107) ■ 


, 0094 












0094 


BIT1 


006C 


(000108) , 


, 0095 












0095 


BIT2 


0060 


(000109) 1 


, 0096 












0096 


BIT3 


00 6E 


(000110) . 


, 0097 












0097 


8IT4 


006F 


(000111) , 


0098 












.. 0098- • 


BIT5 


. 0070 


(000112) i 


, 0099 












0099 


BIT6 


0071 


(000113) 


, 0100 












0100 


BIT7 


0072 


(000114) 1 


, 0101 












-0101 ...... 


, BIT8 - 


. 0073 


(000115) 1 


, 0102, 


1963 










0102 


BIT9 , 


0074 


(000116) ■ 


, 0103 
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0103 


BIT10 


0075 


(000117) 


r 0104 












0104 


BIT11 


0076 


(000118) 


, 0105 












0105 


BIT12 


0077 


(000119) 1 


, 0106 












0106 


BIT13 


0078 


(000120) 


, 0107 












0107 


BIT14 


0079 


(000121) 


, 0108 












0108 


8IT15 


007A 


(000122) 


, 0109 












0109 


HOQOO 


007B 


(000123) 


, 0110 












0110 


HFFFF 


007C 


(000124) , 


, 0111 












0111 


HOOOF 


0070 


(000125) ■ 


, 0112 












0112 


HOOFO 


007E 


(000126) 


, 0113, 


1197, 


1^91, 


2057 






0113 


HOFOO 


007F 


(000127) 


, 0114 












0114 


HFOOO 


0080 


(000128) 1 


, 0115, 


2133, 


2145, 


2153, 


2157 




0115 


HOOFF 


0081 


(000129) 1 


, 0116, 


0480, 


0765, 


1228, 


1239, 


1617 


0116 


HFFOO 


0082 


(000130) i 


» 0117, 
, 1507, 


0483, 
1652, 


1201, 
1691, 


12**6, 

2068 


1486, 


1499 


0117 


HFFFO 


0083 


(000131) 


r 0118 












0118 


HOFFF 


0084 


(000132) 


r 0119 












0119 


HFFOF 


0085 


(000133) 


, 0120 












0120 


HFOFF 


0086 


(000134) 1 


» 0121 












0121 


H7FFF 


0087 


(000135) , 


> 0122, 


1252 










0122 


H7F00 


0088 


(000136) 


, 0123 












0123 


H0780 


0089 


(000137) < 


, 0124 












0124 


H007F 


008A 


(000138) , 


, 0125 












0125 


H2020 


008B 


(000139) , 


0126 












0126 


TSACTV 


0091 


(000145) , 


0127, 


2091 










0127 


TSFREQ, 


0092 


(000146) 1 


, 2092 












0128 


CONST 


006B 


(000107) , 


345, 


0348, 


0356, 


0366, 


0386, 


0404 










04.67, 


0472, 


0493, 


0575, 


0583, 


620 










0625, 


0785, 


0810, 


0891, 


1103, 


1135 










1186, 


1202, 


1243, 


1276, 


1447, 


1477 










1529, 


1553, 


1656, 


1759, 


1784, 


1788 










r 1796, 


1957, 


1998, 


2069 






0129 


SMMPAR 


0056 


(000086) . 


, 2165 












0130 


SJPAR 


0043 


(000067) 














0131 


RANDOM 


0007 


(000007) 














0132 


CONVER 


OOOA 


(000010) 














0133 


MESSAG 


0006 


(000008) , 


1968, 


2097 










0134 


REQND 


000<t 


(000004) 1 


, 0522 












0135 


CLRNO 


0005 


(000005) , 


0421 












0136 


CONVM 


OOOA 


(000010) , 


, 2088 












0137 


INFOBK 


0004 


(000212) 1 


2152 
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DATEt Gi/04/75 



S--Y-H -8--0 L S 



OEF.LINE 


NAME 


ADDRESS REFERENCED AT 


LINE 


NUMBER 






0320 


OP1008 


0000 , 


2086 










0322 


PARAOR 


0004 












0323 


RETURN 


0005 , 


0598, 0888, 


2127 








0324 


EQADOR 


0006 1 


, 0339, 0491, 


0496, 


0520, 


2112 




0327 


ALARH 


0008 i 


0488, 0497, 


0519, 


0856 






0328 


ENOOPE 


0009 , 


, 0487 










0329 


BEGIN 


00OA 1 


0323 










0331 


START 


000C , 


0320, 0388, 


2126 








0336 


REPEAT 


0019 , 


0390 










- 0341 


REP- 


001D 












0354 


NEXTSE 


002F , 


, 0350, 0424 










0355 


LOOK 


0030 , 


0364 










„ . 0365 


TAG2 


0038 , 


, 0357 










0376 


TAG3 


0048 , 


036? 










0386 


TAG4 


0054 1 


, 0383 










... 0392 


PASSCT 


0058 , 


377, 0378, 


0469 








0393 


TEST 


0059 1 


0368, 0369, 


0375 








0397 


Q 


0067 ., 


0359, 0363 










_.-. 0398 


SECTIO- 


0068- , 


0372, 0376, 


1001 








0400 


FINSEC 


0069 , 


, 0403, 0410, 


0411, 


0425, 


1294, 


1306 








1353, 1415, 


1594, 


1738, 


18Z6, 


1865 


: ... 


-■....■... ,. .. 




,. 1899, 2004, 


2072 








0410 


FIN3 


0073 , 


r 0426 










9424 


FIN2 


0083 , 


, 0419 










0425 


FIN1 


.0084- .., 


f 0417 










0428 


PARAH 


0086 , 


0331, 0406, 


0495, 


2164 






0435 


PID 


008O , 


0322 










...~ 0436 ... 


UN1T.SE- 


..008E- .... . , 


, 0342, 0346, 
, 1493, 1883, 


0471, 
2012 


0474, 


d478. 


1248 


0458 


RANGE 


008 F 1 


0479, 0482, 


1505, 


1540, 


1616, 


1651 


- ..;.. '.. 






r 1690, .1844 










. 0464 


ALH 


0090 1 


, 0338, 0486 










0465 


ALN1 \. 


0091 












0466: 


PARSEt 


.0092 1 


, 0433 










0479 


PARSIT 


O0A0 - 


, 0468, 0470, 


0473 








0491 


PARS 


OOBO , 


, 0489 










_ . _ 0496- 


PARSLY 


0086 1 


, 0490, 0492, 


049i» 








0504 


PARSLE 


00C3 


i 0503, 0505 










0507 


SECTPA 


00C5 1 


, 0407, 0408, 


1060, 


1074, 


1269, 


1312 








► 1372, 1421, 


1643, 


1655, 


1842, 


1940 








, 2010 
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0508 


SECTOT 


00C6 


0511 


REQUES 


00C7 


0523 


REQ5A 


00D2 


0525 


REQF 


00D4 


0527 


SELECT 


0005 


0537 


REQ4 


00E2 


0538 


UNIT 


00E3 


0539 


I NT ST A 


00E4 


0541 


INTPRO 


00E5 


0552 


REQZZ 


00F2 


0555 


REQZ 


00F5 


0556 


REQZA 


00F6 


0558 


REQZB 


OOFS 


0561 


REQZX 


OOFC 


0564 


REQZC 


OOFF 


0565 


REQZD 


0100 


0566 


REQZE 


0101 


0569 


REQZF 


0104 


0579 


REQ61 


010E 


0583 


REQ6 


0114 


0587 


REQZG 


0118 


0590 


REQZH 


one 


0591 


REQZI 


one 


0593 


REQZ J 


one 


0597 


REQ7 


0123 


0601 


REQ8 


012A 


0604 


ERRZA 


012D 


- 0605 


ERRZB 


012E 


0606 


ERRZC 


012F 


0607 


ERRZO 


0130 


- O608- 


€RRZE 


0131 


0609 


ERRZF 


0132 


0610 


ERRZG 


0133 


- - 0614- 


- CONALA- 


0134 


0632 


CON01 


0149 


- 0635 


CON02 


014C 


0644 


CONO 


0154 


0650 


CON1 


015A 


0654 


CON2 


015E 


0658 


CON3 


0162 


0662 


C0N4 


0166 


0666 


C0N5 


016A 


067Q 


CON6 


016E 


0674 


C0N7 


0172 


•0678 


C0N8 


0176 


0681 


ALFLAG 


0179 



PAGE 72 




OAT 


E» 01/ 


D4/75 




, 0344, 


0355, 


0365, 


0367 






t 0430* 


0466, 


0518, 


0524, 


1380, 


1425 


, 1514, 


1662 










, 0420 












, 0418, 


0423, 


0516, 


0521 






, 0536, 


0602, 


0603, 


0869, 


0959, 


0983 


, 1157, 


1171, 


1427, 


1457, 


1515 




, 0515, 


0531, 


0569, 


0574, 


0858, 


899 


, 0924, 


0975 










, 349, 


0533, 


1034, 


1787 






, 0530, 


0558, 


0572, 


0579, 


0584, 


0601 


* 0800, 


0804, 


0861, 


0897, 


0911, 


0947 


, 1443, 


1473, 


1527 








, 0341, 


0523, 


0600 








, 0555 












• 0552 












, 0554 












, 0553 












• 0564 












, 0561 












, 0563 


















, 0562 












, 567 












,0576 




• , - - 








, 0573, 


0578 










, 0585, 


0590 










, 0587 












• 0589 












, 0588 












• 0563* 


0595 










, 0597, 


0806 










, 0544, 


0556, 


0566, 


0906 






, 0545, 


0565, 


0915 








, 0546, 


0577, 


0582, 


0923 






, 0547, 


0586, 


0930 








, 0548, 


0591, 


0935 








, 0549, 


0596, 


0945 








, 0550, 


0593, 


0949 




', 




, 0631, 


0634, 


0677, 


0680, 


0833, 


0971 


, 0995, 


1068, 


1108, 


1168, 


1191 




, 0630 












, 0627 












, 0639 












, 0647 












, 0651 












, 0655 












, 0659 












, 0663 












, 0667 












, 0671 












,0676 












, 063.6, 


1049, 


1213, 


1321, 


1341, 


1350 


, 1358, 


1383, 


1«»03, 


1412, 


1565, 


1590 
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, 1696, 


1705 










0683 


CONCHE 


017A \ 


0646, 
0670 , 


0650, 
0688, 


0654, 
0689 


0658, 


0662, 


0666 


0691 


STP 


0181 


, 0623, 


0633, 


06<+3, 


0649, 


0653, 


657 








, 0661, 


0665, 


0669, 


0673, 


0679, 


0694 


0695 


TEMP 


0186 , 


, 0645, 


0674, 


0684, 


0686 






0697 


INPUT 


0187 , 


0703, 


0770, 


0783, 


0809, 


0854, 


0890 








1067, 


1099, 


1272, 


1549, 


1783, 


1795 








, 1807, 


1923, 


1956, 


2027 






0704 


STATUS 


018C , 


, 0618, 


0624, 


0629, 


0638, 


644, 


0727 








0773, 


0881, 


0969, 


0993, 


1052, 


1166 








1180, 


1182, 


1216, 


1282, 


1287 




0706 


ADRINP 


0180 , 


0615, 
> 1271, 


70 9, 
1803 


0771, 


1042, 


1194, 


1225 


071D 


LP1 


0192 , 


► 0722 












0711 


EC1 


0193 , 


, 0733, 


0736, 


0741 








0713 


ST034 


0194 1 


, 0617, 
r 0951, 


0718, 
0977 


0739, 


0789, 


0901, 


0941 


0719 


INP 


019C , 


, 0702, 


0708, 


0728, 


0730 






0724 


12 


01A1 


, 0744 












0732 


11 


01AA 


, 0724 












0735 


13 


01AD 


, 0731 












0737 


14 


01AF 1 


► 0734 












0743 


15 


01B8 














0745 


LP2 


01BQ i 


r 0756, 


0763, 


076*t 








0746 


EC2 


01BC 


, 0762, 


0769, 


776 








0748 


FUNCA 


01BO , 


071*1, 


0751, 


0757 








0749 


FUNCQ 


01BE 


i 0716, 


0752, 


121<» 








0750 


OUTPUT 


01BF 


, 0535, 


0759, 


0802, 


0827, 


1033, 


1036 








► 1432, 


, 1462, 


1782, 


1791, 


1794, 


1.824 








, 1853, 


1897, 


1955, 


2025 






0758 


02 


01C9 


, 0780 












0761 


01 


01CC 


i 0758 












0768 


03 


01D3 


, 0760 












0770 


04 


01D5 


, 0766 












0778 


05 


01E2 


, 0767 












0782 


BUSYPR 


01E7 


i 0795, 


0798, 


0801 








0794 


BUSY1 


01F6 


, 0786 












0797 


I06UFF 


01F8 


, 0807, 


0816, 


1092, 


1098, 


1114, 


1548 


0808 


WAIT 


0207 


> 0812 


, 0813 










0815 


IN8UF 


020F. 


, 0819 


, 0986, 


1365, 


1583 






0817 


T3 


0211 


, 0337, 


1318, 


1378, 


1579, 


165 




0821 


LOADAO 


0215 


► 0829, 


» 0873, 


1040 








0830 


LIMIT 


021E , 


, 0824, 


, 0851 










0841 


RHIGH 


0229 


, 0481 


, 0837, 


0844 








0842 


RLOW 


022A , 


, 0485, 


, 0835, 


0847 








0843 


AHIGH 


22B 


, 834 


, ,0845 










0844 


LOl 


D22C 


, 0836 












0850 


L02 


0231 


i 0840 












0851 


L03 


0233 


, 0846 












0853 


NOINTP 


0234 


, 0862 


0874, 


0963, 


0987, 


1161, 


1175 
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086*» 


AORINT 


0245 


0873 


AOR1 


0240 


0881 


AOR2 


0258 


0884 


A0R3 


Q25D 


0886 


RETCON 


025F 


0890 


DECIDE 


0265 


0894 


CKGONT 


Q26A 


0896 


MESS 


026B 


0904 


IECHK 


0278 


8911 


IEA 


0280 


0923 


IEB 


0295 


0930 


IEG~ 


02A0 


0935 


I ED 


02A7 


09<»5 


IEE 


0208 


0955 


- IEF 


02G9 


0956 


WRITE 


02CA 


0962 


HRT1 


0203 


0969 


-WRT2- 


02DE 


0974 


STD21 


02E5 


09*0 — 


REAB - 


02EE 


0986 


RD1 


02F7 


0993 


R02 


0302 


0998 


STOP - 


0309 



1012 ID 0319 

1013 SECERR 031A 
1044 - RET ADR - 031B 
1015 OATA1 031C 



1016 OATA2 031D 

1017 DATA3 - 031E 

1018 0ATA4 031F 

1019 EQUIPD 0320 



, 1433, 


1463, 


1519 








, 0867, 


0957, 


0981, 


1406 






, 0871 












, 0872, 


0875 










, 0880 












♦ 0794, 


0803, 


0828, 


0894, 


1802, 


1854 


, 1894, 


2026 










, 0887 












, 0892 












, 0903, 


0927, 


0932 








, 0882, 


0955, 


0970, 


0994, 


1167, 


1181 


, 1442, 


1472» 


1526 








, 0907 












, 0916 












,0926 












, 0931 












, 0938 












, 0946 


.... 










, 0968, 


0972, 


1386, 


1678 






, 0960 












, 0961 


— . , 










, 876, 


0964, 


0979, 


0988, 


1162, 


1176 


,0 992, 


0996* 


1392r 


1697 






, 0984 












, 0985 












, 0380, 


0414, 


0502, 


0693, 


0742, 


0777 


, 0793, 


0878, 


0910, 


0922, 


0929, 


0934 


, 0944, 


0954, 


0966, 


0990, 


1004,. 


1011 


* 1056, 


1107, 


1133, 


1164, 


1173, 


1190 


, 1220, 


1280, 


1286, 


1293, 


1440, 


1453 


, 1470, 


1481, 


1524, 


1536, 


1557, 


1757 


, 1817, 


1936, 


1996, 


2047 






, 1000 












, 1002 












,1008 












, 0498, 


0559, 


0619* 


073 8, 


0774, 


0784 


, 0900, 


0912, 


0925, 


0940, 


0948, 


0976 


, 1051, 


1100, 


1120, 


116 3, 


1215, 


1273 


, 1436, 


1446, 


1466, 


1476, 


1521, 


1533 


, 1550, 


1753, 


1814, 


1931, 


1991, 


2042 


, 0499, 


0534, 


0616, 


0720, 


0743, 


0772 


, 0788, 


0855, 


0898, 


0920, 


0937, 


0950 


, 1053, 


1102, 


1130, 


1185, 


1217 r 


1275 


, 1444, 


1474, 


1528, 


1552, 


1754, 


1808 


, 1933, 


1979, 


2000, 


2044 






,0715, 


0754, 


0779, 


0857, 


0918, 


1043 


, 1124, 


1195, 


1210, 


1226, 


1715, 


1724 


, 1810, 


1993 










, 0717, 


0753, 


0778, 


0859, 


0914, 


1045 


, 1129, 


1209, 


1748, 


1812, 


1982 




, 0528, 


0551, 


0701, 


0913, 


0936, 


1032 
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EQUIPA 0321 



1021 


EQHRIT 


0322 


1022 


EQREAO 


0323 


1023 


EQCOMP 


0324 


1024 


EQCHKH 


0325 


1025 


EQWRTA 


0326 


1026 


EXTVAL 


0327 


1027 


BIAS 


0328 


1028 


INADR 


0329 


1030 


CLRCON 


032A 



1039 



ADORES 0335 



1042 


CHKA3 


0339 


1059 


HOVEAD 


034F 


1066 


RETSTA 


0358 


1071- 


SEC GEN 


Q35E 


1076 


Tl 


0363 


1080 


GENSEC 


0367 


1082 


T2 


0368 


1089 


OUTBUF 


0372 


1091 


T10 


0374 


1095 


COMBUF 


0379 


1097 


Til 


037B 


1108 


COMB 


038C 


1111 


CHKHOR 


038F 


1118 


COMPAR 


0399 


1123 


COM4 


039E 


1134 


COM3 


03B0 


1139 


COM1 


03B4 


1145 


COM1A1 


03BA 


1151 


COM1A 


03C3 


1154 


WOROCN 


03C6 


1156 


CHINTP 


03C7 


1160 


CHI 


03CC 


1166 


CH2 


0306 


H78- — 


. CBINTP- 


0300 


1174 


CB1 


03E2 


1180 


CB2 


03EC 


-1191 


; CB3 


03FE 


1193 


CHKTRK 


0401 


1200 


TRK1 


040C 


1204 


TRK 


0411 


1209 


TRK2 


0417 
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, 1035, 


1790, 


1823, 


2113 






, 0707, 


0826, 


1431, 


1780, 


1792, 


1895 


, 1954, 


2115 










, 1090, 


2117 










, 0816, 


2119 










, 1096, 


1546, 


2121 








, 1112t 


1461, 


2024, 


2123 






, 1852, 


2125 










, 0542, 


0599 










, 0384, 


0431, 


1007, 


2087, 


2139 




* 0729, 


787, 


0919, 


1101, 


1119, 


1184 


, 1274, 


1551, 


1811 








, 1037, 


1270, 


1303, 


1323, 


1335, 


1343 


, 1363, 


1385, 


1391, 


1397, 


1405, 


1426 


t 1677, 


1694, 


1779, 


1801, 


1850, 


1892 


, 1952, 


2018 










, 0868, 


1048, 


1057, 


1304, 


1324, 


1344 


, 1364, 


1512, 


1542, 


1544, 


1566, 


1572 


, 1577 












, 0884 












, 1064, 


1305, 


1778, 


1893 






, 0879, 


0967, 


0991, 


1041, 


1069, 


1115 


, 1327, 


1367, 


1568, 


1584 






, 1078, 


1299, 


1774, 


1871 






« 1087, 


1322, 


1384 








, 0962, 


1093, 


1325, 


1518, 


1543, 


1567 


i I960 








' ■ 




,1649 












, 1109, 


1174, 


1345, 


1573 






, 1104 












, 1116, 


1160, 


1336 








• 1151, 


1352, 


1414, 


1592 






« 1153 












t 1127, 


1589, 


1593 








, 1150 












, 1138, 


1142, 


1148 








» 1122, 


1139, 


1141, 


1152 






,1165, 


1169, 


1398 








, 1158 












, 1159 












, 1179, 


1192, 


1407 








, 1172 












, 1173 












♦ 1187 












, 1212, 


1221, 


1224, 


1337, 


1399, 


1683 


, 1704 












, 1231 












, 1199 












, 1203, 


1234 
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1222 


CHKSEC 


042C 1 


, 1223« 1326, 
, 1408, 1681, 


1346, 1366, 1387, 1393 
1702 


1232 


SEC 


043A i 


, 1230 




1235 


CONV 


043E 


, 1086, 1264, 


1302, 1777, 1874 


1238 


C0NV6 


0441 1 


, 1263 




1245 


C0NV3 


0449 , 


, 1241 




125* 


C0NV4 


0454 1 


i 1249 




1257 


C0NV5 


0458 , 


, 1253 




1259 


CONV7 


-045A- 1 


» 1251, 1255 




1265 


CONVl 


0460 1 


, 1236, 1238, 
1258, 1259, 


1242, 1244, 1245, 1257 
1261 


1266 


CONV2 


0461 1 


t 1237, 1260 




1268 


SEC1 


0462 1 


, 0394, 1297 




1270 


SEC1C 


0466 1 


, 1295, 1296 




-128Jr 


SEC1A 


0478 , 


, 1277 




1287 


SEC IB 


0480 • 


, 1283 




129*. 


SEC IE 


048B 1 


, 1290 




1299 


SEC2 


0490 1 


, 0394, 1309 




1303 


SEC2A 


.0498 , 


, 1307, 1308 




1311 


SEC3 


04A3 


, 0394, 1356 




431* 


T4- 


04A6 , 


r 1373, 1644 




1317 


T8 


04AD , 


, 1377, 1578 




1319 


SEC3A 


04B1 , 


1355 




1323 


-SEC38 


0487 5 


, 1330 


• ■ -. - 


1331 


SEC3C 


Q4C4 1 


> 1334 




1335 


SEC30 


04C8 , 


► 1340 




13*1 


SEC3E 


04D1 i 


13*9 




1350 


SEC3F 


04DF . , 


1342, 1360 




1357 


SEC3G 


04E9 1 


135,4 


- 


1362 - 


SEC3R0 


-Q4EE , 


, 1331, 1359, 


1368 


1370 


SEC4 


04FA , 


0394, 1418, 


1834 


1379 


SEC4Z 


0507 , 


> 0352, 1832 




1381 


SEC 40 


050A , 


1417 




1385 


SEC4A 


0510 i 


, 1390 


"-, 


1391 


SEC4B 


0519 , 


1396 




1397 - 


SEC4G 


0522 , 


, 1402 




1403 


SEC4E 


052B 1 


1411 




1412 


SEC4F 


8539 1 


, 1404, 1416 




-1428-- 


- SEG5 


0543 1 


i 0394, 1597 




1422 


SEC5A 


0546 , 


1485, 1489, 


1490, 1492, 1598 


1427 


SEC5F 


054F , 


, 1456 




1430 


SEC5B 


0553 ■ ■ .1 


, 1428 




1442 


SEC50 


0564 1 


1429, 1434 




1454 


SEC5C 


0574 1 


, 1441, 1448 




1457 


SEC5T 


0577 , 


1484 




1460 


SEC5U 


057B < 


> 1458 




1472 


SEC5V 


058C 1 


1459, 1464 




1482 


SEC5W 


059C i 


> 1471, 1478 




1497 


SEC5G 


05AO , 


1494 




1498 


SEC5H 


05AF 1 


1496 




1501 


T5 


05B3 , 


1580 




1512 


SEC5L 


05C2 1 


, 1539 




1518 


SEC5X 


05CB , 


, 1516 
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DATEJ 01/04/75 



^ / A 



1526 


SEC 51 


05D7 


1537 


SEC 5 J 


05E7 


1540 


SEC5M 


05EA 


1547 


T7 


05F8 


1558 


SEC5N 


060A 


1566 


SEC5NA 


0615 


1572 


SEC5N3 


061E 


1577 


SEC5NC 


0625 


1588 


SEC5NN 


0636 


1598 


SEC5R 


0647 


1600 


INCREM 


0649 


1610 


W96 


0654 


1615 


CHKHIG 


065A 


1623 


HIGH 


0663 


1624 


COHBZN 


0664 


1630 


W1536 


066B 


1637 


HIGH1 


0673 


1638 


SAVE1 


0674 


1639 


SAVE2 


0675 


1640 


CURAO 


0676 


1642 


SEC 6 


0677 


1651 


SEC6H 


0687 


1661 


SEC6Z 


0697 


1663 


SEC6A 


069A 


1668 


SEC6C 


06A2 


1677 


SEC6B 


06AD 


1678 


SEC6X 


06AF 


1694 


SEC6D 


06C6 


1695 


SEC6Y 


06C8 


1714 


SEC6F 


06E4 


1732 


SEC6E 


06FA 


1743 


ERROR 


0707 


1765 


QSAVE 


0723 


1766 


ISAVE 


0724 


1767 


PATTER 


0725 


1774 


SEG7 


0726 f 


1778 


SEC7A 


072E 


1779 


SEC7AA 


0730 


1783 


SEC7B 


0738 


1795 - 


SEC7C 


074B 


1802 


' SEC7E . 


. 0754 


1818 


SEC7D 


0770 


1826 


SEC7F 


077 A 


1831 


SEC8 


077F 


1835 


SECCH 


0784 


1836 . 


SEC9 ... 


.0785 


1840 


TEMPLO 


078A 


1841 


SEC10 


078C 


1851 


S10A 


079A 



1517 

1525, 1531 
1508, 1511, 1560 

1554 
1571 
1576 
1587, 1595 



1596 
1622 
1608 
1612 
1621 
1614 
1609 
1632 
1606 
1634 
1604 
1602 



, 1629, 1687, 1735 
, 1637 

, 1636 



• 1610, 1613, 1615, 1626, 1630 

, 1635 

, 1619, 1623, 1624 

, 1628, 1654, 1693, 1698, 1752 



0394, 1742, 1838 

1741 

353, 1837 



1676 
1671 
1689 
1734 
1737 
1731 
1707 
1718 
1744 
1746 
1660 
0394 
1828 
1827 
1786 
1798 
1825 
1806 
1820 
0394 
1831 
0394 
1789 
1847 
1863 
394 
1857 



, 1686 
, 1739 



, 1720, 1730, 1762 

, 1727, 1763 

, 1760 

, 1667, 1714, 1722 

t 1829 



, 1836 

• 1800, 1816, 1818, 1821, 1822 

, 1849, 1851, 1858, 1859, 1861 

, 1868 

, 1864, 1866 
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DATEI 01/04/75 



1865 


S10B 


07AB 


1870 


MSEC 


07B0 


1871 


SEC 11 


07B1 


1893 


SC11A 


07DB 


1895 


SCUD 


07OF 


1903 


TIME 


07EB 


1912 


TIMCON 


07EO 


1913 


TIME1 


07EE 


1918 


SC11E 


07F2 


1921 


SC11B 


07F5 


1937 


SC11C 


080B 


1939 


SEC12 


080C 


1944 


S12A 


0814 


1950 


T6 


081B 


1956 


S12B 


0826 


1969 


S12B1 


0838 


1974 


S12D 


083O 


198V 


S12A1 


084B 


2001 


S12C 


0863 


2004 


S12E 


0866 


2008 


PUT* 


0866 


2009 


SEC13 


0871 


2019 


S13F 


088C 


2023 


S13A . 


0884 


2041 


S13J 


0899 


2049 


S13G 


08A4 


2- 85 3 


S13H 


08A8 


2064 


S13Y 


08B4 


2072 


S13X 


08BC 


2077 


.- BUFFLA 


08G1 


2079 


SURFAC 


08C2 


■-■•' 2081 


OBUFFE 


88G4 



2083 



IBUFFE 925 



1860 

1920t 1922, 1928, 1930 

0395, 1902 

1901 

1900 

1916, 1921 

2170 

1915 

0958, 0982, 1898, 1937 

1926 

1929 

0395, 2007 

1949 



1959 

1965 

2003 

1989 

1978 

1997, 

2015, 

2034, 

2043, 

2064, 

0396, 

2055, 

2039 

2052 

2033 

2048, 

2059 

2066 

0475 

1711 

1647 

0334 

1046 

1085 

1200 

1313 

1445 

1502 

1561 

1672 

1775 

1872 

1880 

1890 

1951 



1999 

2017, 

2035, 

2046, 

2065, 

2075 

2063, 



2051 



2020* 2022, 2023, 2026 

2036, 2037, 2040, 2041 

2049, 2056, 2060, 2062 

2067, 2070 

2071, 2073 



0332 
1145 
2082 



, 1607, 


, 1645, 1664, 


1679, 


, 2131 


i 2174 






, 2129, 


. 2140. 


, 2147, 


2172 


, 0335 


r 0825, 


, 0832, 


0850, 


• 1062, 


, 1063 


»- 1076, 


1082, 


, 1091, 


r 1097, 


i 1113, 


1123, 


, 1204, 


v 1227 


, 1232, 


1300, 


, 1314, 


» 1374, 


, 1423, 


1430, 


, 1460 


, 1465, 


. 1475, 


1<»98, 


• 1520, 


r 1532 


i 1541, 


1545, 


, 1563, 


» 1627, 


, 1648, 


1653, 


• 1692, 


1699 


» 1716, 


1725, 


, 1776, 


i 1781, 


r 1793, 


1804, 


• 1873, 


, 1876, 


» 1877, 


1878, 


, 1881, 


, 1886 


, 1887, 


1888, 


, 1891, 


, 1896 


> 1932, 


1946, 


, 1976, 


1984, 


» 1992, 


2080, 


, 0333, 


> 0336 


, 0817, 


1125, 


• 1316, 


> 1317, 


, 1376, 


1504, 



1044 
1084 
1196 
1301 
1435 
1501 
1547 
1666 
1747 
1889 
1879 
1889 
1950 
2128 

1128 
158 2 
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DA 


2085 


INIALI 


0985 


» 


0329 






2099 


AUTOMS 


0996 


t 


1966i 


1967 




2101 


AUTOEN 


09A3 


» 


1967 






2102 


TYPE 


09A<t 


♦ 


2095, 


2096 




2108 


TYPHI 


09C1 


» 


2089, 


2090 




2111 


TYPEE 


09C8 


» 


209*, 


2096 




2112 


INI 


09C9 


» 


2098 






2139 


BUFCK 


09EE 










21*7 


BUFCK1 


09F9 


« 


215*, 


2155, 


2158 


2151 


BUFCK2 


09FE 


» 


21*1 






2156 


BUFCK3 


0A03 


» 


2151 






2163 


TTT 


0AO9 


» 


2138, 


21*3, 


2150 


216* 


TTT1 


OAOA 


» 


2175 






2172 


AAA 


0A1* 


» 


21*9, 


2162 




2179 


TIMVAL 


0A1A 


* 


2169 






2103 


SURBUF 


0A1E 










218* 


TAGBUF 


0EE2 
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OATEI 


01/04/7 


5 


L »» A L 


P H A 


BETI 


C A L 


SORT 


F 


S Y M B 


L S 


*»* 




AAA 


2172 


ADORES 


1039 


A0R1 


873 


ADR2 


0881 


A0R3 


0884 


ADRINP 


0706 


ADRINT 


864 


AHIGH 


0843 


ALARM 


0327 


ALFLAG 


0681 


ALM 


046 V 


ALH1 


0465 


AUTOEN 


2101 


AUTOMS 


2099 


BEGIN 


0329 


BIAS 


1027 


BITO 


0093 


BITOO 


0092 


BIT1 


0094 


,BIT10 


0103 


BITli 


0104 


BIT12 


0105 


BTT13 


0106 


BIT14 


0107 


BIT15 


0108 


BIT? 


0095 


BIT3 


0096 


BIT4 


0097 


BIT5 


0098 


BIT6 


0099 


BIT7 


0100 


BIT8 


0101 


BIT9 


0102 


BUFCK 


2139 


BUFCK1 


2147 


BUFCK2 


2151 


BUFCK3 


2156 


BUFFLA 


2077 


BUSY1 


0794 


BUSYPR 


0782 


CB1 


1174 


C82 


1180 


C83 


1191 


CBINTP 


1170 


CHKA3 


1042 


CHKHIG 


1615 


CHKSEC 


1222 


CHKTRK 


1193 


CHKWOR 


1111 


CKCONT 


894 


CLRCON 


1030 


CLRNB 


0135 


COM1 


1139 


COM1A 


1151 


COM1A1 


1145 


COM3 


1134 


COM4 


1123 


COMB 


1108 


COMBIN 


1624 


COMBUF 


1095 


CONPAR 


1118 


CONO 


3 644 


CON01 


0632 


CON02 


0635 


CON1 


0650 


C0N2 


0654 


CON3 


0658 


C0N4 


0662 


CONS 


0666 


C0N6 


0670 


C0N7- 


0674 


C0N8 


0678 


CONALA 


0614. 


CONCHE 


0683 


CONST 


0128 


CONTRO 


0071 


CONV 


1235 


CONV1 


1265 


C0NV2 


1266 


CONV3 


1245 


C0NV4 


1254 


CONV5 


1257 


C0NV6 


1238 


C0NV7 


1259 


COflVER 


0132 


CQNVH 


0136 


CUR AD 


1640 


CW1 


1160 


CW2 


1166 


CWINTP 


1156 


OATA1 


1015 


DATA2 


1016 


DATA3 


1017 


DATA4 


1018 


DECIOE 


0890 


DPI 008 


0320 


EC1 


0711 


EC2 


0746 


END OPE 


0328 


EQAODR 


324 


EQGHKH 


-M24- 


EQCOMP 


1023 


EQREAQ 


1022 


EQ.UIPA 


1020 


EQUIPD 


1019 


EQMRIT 


1021 


EQHRTA 


1025 


ERROR 


1743 


ERRZA ' 


0604 


ERRZB 


0605 


ERRZC 


0606 


ERRZD 


0607 


ERRZE 


0608 


ERRZF 


0609 


ERRZG 


0610 


EX-IT 


-0073 


EXTVAL 


1026 


FCLRIN 


0075 


FIN1 


0425 


FIN2 


0424 


FIM3 


0410 


FINSEC 


0400 


FUNCA 


0748 


FUNCQ. 


0749 


GENRAN 


077 


GENSEC 


1080 


HOOOO 


0109 


H000F 


0111 


H007F 


0124 


HOOFO 


0112 


H80FF 


8115 - 


HQ788 


0123 


HOFOO 


0113 


HOFFF 


0118 


H2020 


0125 


H7FP0 


0122 


M7FFF 


0121 


HEXASC 


0080 


HF0 00 


0114 


HFOFF 


0120 


HFFBO 


0116 


HFFOF 


0119 


HFFFO 


0117 


HFFFF 


0110 


HIGH 


1623 


HIGH1 


1637 


I 


0000 


11 


0732 


12 


8724 


13 


0735 


14 


0737 


15 


0743 


IBUFFE 


2083 


ID 


1012 


IEA 


0911 


IEB 


0923 


IEC 


0930 


IECHK 


0904 


IED 


0935 


IEE 


0945 


•HF 


0955 


-INI 


2112 


INADR 


1028 


INBUF 


0815 


INCREM 


1600 


INF08K 


0137 


INFORM 


0090 


INIALI 


2085 


INP 


0719 


INPUT 


697 


INTPRO 


0541 


INTSTA 


0539 


IOBUFF 


0797 


ISAVE 


1766 


JUMP 


0076 


LASTAD 


0087 


LASTVA 


0086 


LD1 


0844 


L02 


085O 


L03 


0851 


LOL1CO 


0089 


LOLCOR 


0088 


LIMIT 


830 


LOAOAD 


0821 


LOOK 


0355 


LP1 


0710 


LP2 


0745 


MAINL 


0083 


MESS 


0896 


MESSAG 


0133 


MCVEAO 


-1059 


MSEC 


1870 


NEXTSE 


0354 


NOINTP 


0853 


01 


0761 


0* 


0758 


03 


0768 


04 


0770 


05 


0778 


OBUFFE 


2081 


OUTBUF 


1089 


OUTPUT 


0750 


OVRLAY 


0081 


PARADR 


0322 


PARAM 


0428 


PARS - 


0491 


-PAR SET 


0466 


PARSIT- 


0479 


PARSLE 


0504 


PARSLY 


496 


PASSCT 


0392 


PATTER 


1767 


PID 


0435 


PUTZ 


2008 





0397 


QSAVE 


1765 


RANDOM 


0131 


RANGE 


0458 


ROl 


0986 


RD2 


0993 


READ 


09*0 


RELPOS 


0Q82 


REP 


0341 


REPEAT 


0338 


REQ4 


0537 


REQ5A 


0523 


REQ6 


0583 


REQ61 


0579 


REQ7 


0597 


REQ8 


0601 


REQF 


0525 


REQINT 


0074 


REQ.N0 


0134 


REQUES 


0511 


REQZ 


0555 


REQZA 


. 0556 


REQZB 


0558 


REQZC 


0564 


REQZO 


0565 


REQZE 


0566 


REQZF 


0569 


REQZG 


0587 


REQZH 


590 


REQZI 


0591 


REQZJ 


0593 
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REQZX 


0561 


REOZZ 


0552 


RETAOR 


1014 


RETCON 


0886 


RETSTA 


10 66 


RETURN 


0323 


RHIGH 


0841 


RLOH 


0842 


S10A 


1851 


S10B 


1865 


S12A 


1944 


S12A1 


1984 


S12R 


1956 


S1281 


1969 


S12C 


2001 


S12D 


1974 


S12E 


20 04 


S13A 


2023 


S13F 


2019 


S13G 


2049 


S13H 


2053 


S13J 


2041 


S13X 


2072 


S13Y 


2064 


SAVE! 


1638 


SAVE2 


1639 


SC11A 


1893 


SC11B 


1921 


SCilC 


1937 


SCUD 


1895 


SC11E 


1918 


SEC 


1232 


SEC1 


1268 


SEC10 


1841 


SEC11 


1871 


SEC12 


1939 


SEC 13 


2009 


SEC1A 


1281 


SEC1B 


1287 


SEC1C 


1270 


SEC1E 


129*» 


SEC2 


1299 


SEG2A 


1303 


SEC3 


1311 


SEC3A 


1319 


SEC3R 


1323 


SEC3C 


1331 


SEC3D 


1335 


SEC3E 


1341 


SEC3F 


1350 


SEC3G 


1357 


SEC3RD 


1362 


SEC4 


1370 


SEC4A 


1385 


SEC4B 


1391 


SEC4C 


1397 


SEC4D 


1381 


SEC4E 


1403 


SEC4F 


1412 


SEC4Z 


1379 


SEC5 


1420 


SEC5A 


1422 


SEC5B 


1430 


SEC5C 


1454 


SEC50 


1442 


SEC5F 


1427 


SEC5G 


1«*97 


SEC5H 


1498 


SEC5I 


1526 


SEC5J 


1537 


SEC5L 


1512 


SEC5M 


1540 


SEC5N 


1558 


SEC5NA 


1566 


SEC5N8 


1572 


SEC5NC 


1577 


SEC5NN 


1588 


SEC5R 


1596 


SEC5T 


1457 


SEC5U 


1460 


SEC5V 


1472 


SEC5H 


1482 


SEC5X 


1518 


SEC6 


1642 


SEC6A 


1663 


SEC68 


1677 


SEC6C 


1668 


SEC6D 


1694 


SEC6E 


1732 


SEC6F 


1714 


SEC6H 


1651 


SEC6X 


1678 


SEC6Y 


1695 


SEC6Z 


1661 


SEC7 


1774 


SEC7A 


1778 


SEC7AA 


1779 


SEC7B 


1783 


SEC7C 


1795 


SEC7D 


1818 


SEC7E 


1802 


SEC7F 


1826 


SEC8 


1831 


SEC9 


1836 


SECCH 


1835 


SECERR 


1013 


SECGEN 


1071 


SECTIO 


0398 


SECTOT 


0508 


SECTPA 


0507 


SELECT 


0527 


SETMAS 


0084 


SJPAR 


0130 


SMMCNT 


0091 


SMHPAR 


0129 


START 


0331 


STATUS 


0704 


STD21 


0974 


ST034. 


0713 


STJP 


0085 


STOP 


0998 


STOPX 


0072 


STP 


0691 


SURBUF 


2183 


SURFAC 


2079 


Tl 


1076 


T10 


1091 


Til 


1097 


T2 


1082 


T3 


0817 


TV 


1313 


T5 


1501 


T6 


1950 


T7 


1547 


T8 


1317 


TAG2 


0365 


TAG3 


0376 


TAGt» 


0386 


TAGBUF 


2184 


TEMP 


0695 


TEMPLO 


1840 


TEST 


0393 


TIMCON 


1912 


TIME 


1903 


TIME1 


1913 


TIMVAL 


2179 


TRK 


1204 


TRK1 


1200 


TRK2 


1209 


TSACTV 


0126 


TSFRECt 


0127 


TTT 


2163 


TTT1 


2164 


TTYBZY 


0079 


TYPE 


2102 


TYPE1 


2108 


TYPEE 


2111 


TYPEOU 


0078 


UNIT 


0538 


UNITSE 


0436 


H1536 


1630 


H96 


1610 


WAIT 


0808 


WOROCN 


1154 


WRITE 


0956 


WRT1 


0962 


WRT2 


0969 
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